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A FORTRAN PROGRAM FOR DETERMINING AIRCRAFT STABILITY AND 


CONTROL DERIVATIVES FROM FLIGHT DATA 


Richard E . Maine and Kenneth W . Iliff 
Flight Research Center 


INTRODUCTION 


Determination of aircraft stability and control derivatives from flight data is of 
great importance in flight testing and control system design. Several methods have 
been used, but recent interest has turned toward maximum likelihood estimators. 

In addition to producing the "best" possible estimates as defined by some probabi- 
listic criterion , these methods can be automated to a large extent . 

Experience at the NASA Flight Research Center has shown that derivatives can 
be extracted with minimum effort by relatively inexperienced personnel using max- 
imum likelihood estimators. Others have had some difficulty, perhaps partially due 
to inadequately designed programs. A production version of a maximum likelihood 
estimation program has been developed and used at the Flight Research Center to 
determine aircraft stability and control derivatives from large amounts of flight data . 
The program was designed to be compatible with as many types of computers as 
feasible and was structured to accommodate alterations easily . The program is 
applicable to many linear parameter estimation problems, although several of the 
features are intended specifically for aircraft stability and control applications. 
Reference 1 discusses an earlier program from which this maximum likelihood 
estimation program was conceptually derived. 

This report presents the modified maximum likelihood estimation computer 
program used at the Flight Research Center for derivative extraction as well as 
associated programs for table lookup of initial estimates of the derivatives and for 
plotting results . Program listings and sample check cases for each program are 
included in the appendixes . 


SYMBOLS 


Parenthetical symbols are computer identifiers for data channels. 


A 


stability matrix, or axial force (appendix E) 



a n (AN) 


a (AX) 
oc 

a (AY) 

y 

B 


c 


c 


0 


D 1 


D 2 
£[ ] 


E 

G 


k 


sr 

H 

7 




xz 


i 

J 


vertical acceleration, g 
longitudinal acceleration , g 
lateral acceleration , g 
control matrix 

dimensionless pitching-moment coefficient 

dimensionless yawing-moment coefficient 

dimensionless normal-force coefficient 

vector of unknowns 
a priori value of c 

signal weighting matrix 
a priori weighting matrix 
expected value 
relative error 

observation matrix 

acceleration of gravity, m/sec 2 (ft/sec 2 ) 
observation matrix 
identity matrix 

moment of inertia about the longitudinal axis, kg-m 2 (slug-ft 2 ) 

cross-product of inertia about the longitudinal and normal axes, 
kg-m 2 (slug-ft 2 ) 

moment of inertia about the normal axis, kg-m 2 (slug-ft 2 ) 

time index 
cost functional 
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L 


rolling moment divided by moment of inertia about longitudinal 
axis , rad/sec 2 


l 0 ’ l 0 2 ’ l 0 3 ’ l 0 4 


rolling acceleration equation biases 


M pitching moment divided by moment of inertia about lateral axis , 

rad/ sec 2 

,M ft ,M n pitching acceleration equation biases 
u u 2 u 3 u 4 


N 






p (P) 
q (Q) 
q 

R 


r (R) 
S 


s 

T 

t 

At 


u 

V 


v 

W 

X 


X ° ,X °2 




yawing moment divided by moment of inertia about normal axis , 
rad/sec 2 , or number of time points 

yawing acceleration equation biases 

roll rate, deg/sec or rad/sec 
pitch rate, deg/ sec or rad/ sec 
dynamic pressure, N/m 2 (lb/ft 2 ) 
acceleration transformation matrix 
yaw rate, deg/ sec or rad/ sec 
reference area , m 2 (ft 2 ) 
auxiliary time variable, sec 
total time , sec 
time, sec 

time interval between samples, sec 
control vector 
velocity, m/sec (ft/ sec) 
variable bias vector 
aircraft weight , N (lb) 

longitudinal force divided by mass, m/sec 2 (ft/sec 2 ) 
longitudinal acceleration equation biases 
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X 


y 


Y 


0 





y 

z 

z 0’ z 0 2 ’ z 0 3 ’ z 0 4 


state vector 

side force divided by mass and velocity, rad/sec 
side force equation biases 

computed observation vector 

normal force divided by mass and velocity, rad/sec 
normal force equation biases 


a (A) 

P (B) 

8 

8 (DA) 
a 

6 c ,6 1 ,6 2 

(DC ,D1 ,D2) 

8 g (DE) 

8 (DR) 
r 

R 

0 (THET) 


measured observation vector 
angle of attack , deg or rad 
angle of sideslip , deg or rad 
control, deg or rad 
aileron position , deg or rad 

extra controls, deg or rad 

elevator position , deg or rad 
rudder position , deg or rad 
noise vector 

pitch attitude, deg or rad 
biases in Euler pitch rate equation 


t 

cp (PHI) 





revised time interval , sec 
Euler roll attitude, deg or rad 

biases in Euler roll rate equation 
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gradient with respect to c 

second gradient with respect to c (Hessian matrix) 
null matrix 


Superscript: 

* 


transpose 


Subscripts: 


p,q,r,V,a,p, 

WV 

6 r’ 6 l ,6 2 


partial derivatives with respect to the subscripted variable 


i,k 

L 

0 


i and k elements of vector or matrix 
iteration number 
constant value 

A dot over a quantity denotes the time derivative of that quantity. 


PARAMETER ESTIMATION 


The problem considered is: Given a set of flight time histories of an aircraft's 

response variables, find the values of some unknown parameters in the system 
equations that best represent the actual aircraft response. An intuitive mathematical 
approach to this problem would be to minimize the difference between the flight 
response and the response computed from the system equations. This difference 
could be defined for each response variable as the integral of the error squared. 
These signal errors could then be multiplied by weighting factors and summed to 
obtain the total response error, thereby defining an integral squared error criterion. 

A mathematically more precise formulation can be made in probabilistic terms. 
For each possible estimate of the unknown parameters, a probability that the aircraft 
response time histories take on the values actually observed can be defined . The 
estimates should be chosen so that this probability is maximized. This process is 
referred to as a maximum likelihood formulation of the problem . Maximum likelihood 
estimators have many desirable characteristics; for example, they yield asymptot- 
ically unbiased and consistent estimates. If the measurement noise is assumed to be 
Gaussian, white, stationary, and uncorrelated, this formulation is equivalent to a 
response error formulation , in which the weightings used are the inverse of the 
measurement noise covariance matrix . 
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To mathematically describe the maximum likelihood estimator it is first neces- 
sary to define the equations of motion for the aircraft system. These equations are: 




Rx(t ) = Ax(t) 

+ Bu(t ) 

(i) 


y(0 = 

['i -] x(1) + [ 


(2) 



2(0 = y(0 

+ n(0 

(3) 

where 





X 

state vector 




u 

control vector 




V 

bias vector 




y 

computed observation vector 



z 

measured observation vector 



*1 

noise vector 





For the aircraft problem being considered, it is convenient to separate the 
equations of motion into longitudinal and lateral-directional sets. The linearized 
longitudinal equations are: 



V 

a = — 

n g 


q + sin (0) cos (cp)-^0 + a 

V -1 l hiV 


The linearized lateral-directional equations are: 



a y = ¥ p - sin (a)p + cos (a)r - cos (<p) cos (0)^ cpj + 
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The unknown parameters are contained in the matrices A , B, G, and H and in 
the bias vector, v. For notational simplicity, the unknown parameters will be 
regarded as forming a vector c . Then A , B , G , H , and v are functions of c There 
is no provision for modeling state noise, that is, random or unknown inputs to the 
system such as turbulence. (This problem is treated in reference 2 . ) Instead it 
is assumed that noise is introduced only in the measurement process. It is also 
assumed that there is no noise in the control measurements. 

The integral squared error criterion can now be expressed as finding- the 
vector of unknowns, c, that minimizes the cost functional: 


T 

~ / [>(0 - y (f)]* Dl[z(o - y (f)]df 


or as approximated in the discrete case: 


l \ 

2e. 


where D1 is the symmetric, non-negative definite weighting matrix, i is a time 

in n e *.’^ nd N L 18 th , 6 number of time P oin ts . The cost functional , J , can also be 
called the index of performance or the fit error. 

SOLUTION BY THE MODIFIED NEWTON-RAPHSON METHOD 


everal algorithms for the minimization of nonlinear functionals exist that could 
be used to minimize J. The modified Newton-Raphson method has proved to be the 
most suitable for aircraft derivative determination, both in terms of computer time 
and convergence properties . 

The Newton-Raphson algorithm is an iterative method of functional minimization 
which requires some initial estimate of c and a means of computing the first and 

second gradients of J with respect to c. Revised estimates of c are then obtained 
trom the equation 


C L C L 


-i -(*); 1 <V): 


where^L denotes the iteration number, V, indicates the gradient with respect to c, 
and V c indicates the second gradient. The first and second gradients of J are then 


V= (n^T) 


q - y t ) mv c (z. - y.) 
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N 


N 


V 2 J = w 
c N 


V (z. 
c\ i 


D1 V c ( Z i - 


y 0 + 


(N - 1) 


2 ( z , -^)*' nv o ( z i ->'0 < 12 > 


i = 1 


i=l 


Computation of V c (z. - y.) is relatively straightforward, as described in refer- 
ence 3. Computation of vj^z^ - y^is much more time consuming; however, 

Balakrishnan shows in reference 4 that the contribution of this term to the second 
gradient goes to zero as the process converges. Thus, if we neglect this term, the 
method is still an asymptotically unbiased estimator. The Newton-Raphson algo- 
rithm with this term neglected is referred to as the modified Newton-Raphson algo- 
rithm and provides the same result as obtained by quasilinearization. 

Reference 1 describes a modification in the computation of the gradient that is 
used on the first iteration. This modification, analogous to linear least squares, 
helps to obtain convergence when the initial estimates are far from the minimum . 
With this modification it is often possible to start with estimates of zero for all the 
unknowns and still converge to the correct solution. 


INCLUSION OF A PRIORI INFORMATION 


Information from wind tunnel studies, previous flight tests, and other sources 
(referred to collectively as predicted derivatives) is often available on the values 
of some of the aircraft derivatives. It may be desirable to include this information 
in the program's algorithm. The use of this information is particularly important 
when there is a linear dependence or near dependence of the effect of several deriv- 
atives, for instance, in a maneuver in which the control motion is due largely or 
solely to a feedback of the states . The second gradient matrix then becomes ill- 
conditioned, resulting in poor convergence properties and unreliable estimates. In 
most instances a true minimum of the cost functional is still approached , despite the 
ill conditioning. The location of this minimum may not be important, however , 
because the linearly dependent derivatives could be altered greatly without signifi- 
cantly increasing the cost. In this instance the slight improvement in the fit obtained 
by altering the derivatives would not seem sufficient justification for altering them 
from the a priori values . 

One solution to this problem would be to add to the cost functional a quadratic 
penalty function for departure from the a priori values . The cost functional , J , 
would then be 


N 

J = 1 ( Z < - y i) 01 ( Z i - y i) + (° ■ c o)* D2 (° “ c o) <13) 

i=l 

where c Q is the a priori estimate, and D 2 is a symmetric, non-negative definite 
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weighting matrix . The algorithm with this penalty function will be referred to as 
the modified maximum likelihood estimator. It is important in this formulation for 

the elements of D 2 to be small enough that, in general, - c Q ^ D2(c - is 


significantly less than 


1 

(N - 1) 



yA- Thus the estimates of 


those parameters that are well defined by the response data will not be altered . 


The first and second gradients of J now become 


N 

V = 2 ( z t ' y 0* 01 V c( z i - y t ) * 2 (° _ c o)* 02 (14) 

i=l 

N 

v l J = Tfrhr 2 v c( z i ' y i) D1 v c( z i - h) - 202 < 15 > 

i=l 


where the second term of equation (12) has been neglected. 

When this feature is used, convergence is generally improved. With small 
enough values of D 2 , the estimates of the derivatives are not affected when the 
maneuver is well conditioned, but poorly conditioned maneuvers may converge and 
reveal some information instead of diverging. 


CONFIDENCE LEVELS 


One advantage of using a maximum likelihood estimator to determine aircraft 
stability and control derivatives is that an objective measure of the validity of the 
estimates is obtainable. With some other methods the main criterion of the validity 
of an estimate is the engineer's subjective judgment. 

If the noise obeys the stated assumptions and D1 is, in fact, the inverse of the 
noise covariance matrix, the Cramer-Rao inequality (ref. 3) gives a lower bound 
on the covariance matrix of the estimates as follows: 




’ N 

r x , *' 


v * 

[_( c ■ c o)( c - c o) 

> 

l V c( Z i ' y i) D1V e( 2 i ■ y .) 

_i=i 


(16) 


The right side of this inequality is recognized as ^ evaluated without the 

term for a priori. This expression is available in the minimization algorithm 
(eq. (12)), so these confidence levels (sometimes referred to in the literature as 
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is determined from the A matrix: LONG if A (1,2) > +0.5, LATR otherwise. This 
element is usually +1 in a longitudinal case or sin (ALPHA) in a lateral-directional 
case. 


Items (2) to (11) are related to the input time histories. The signals which are 
input from the time histories fall into three classes: observations, controls, and 
extra . The observations form a vector , z , seven words long; the controls form a 
vector, u, four words long; and the extra signals form a vector four words long of 
quantities not actually used in the estimation process but useful in evaluating the 
quality of the maneuver. For a longitudinal case, 

z - 


u 

Extra = [cp 

and for a lateral-directional case, 

z - 


u 

Extra = 

(2) CARD, TAPE- (logical) — input source for time histories. Set either 
CARD = T or TAPE = T. Only one of the two variables can be set to true in the 
NAMELIST . Default condition is TAPE = T . 

(3) SPS — sample rate of input time histories (samples per second) . If SPS is 
not set, a default value is computed from the times shown on the time histories. The 
times of the first two data points are subtracted and the difference rounded to the 
nearest 5 milliseconds . The reciprocal of this value is then used as the default 
value for SPS . 

(4) THIN- (integer) — thinning factor for input data . If THIN = 1 , every point 
on the file is used; if THIN = 2, every second point is used, and so forth. SPS is 
the sampling rate of the data before this thinning. Default value of 1 is used. 

(5) NCASE — number of disjoint maneuvers to be used in obtaining one set of 
estimates. If two or more maneuvers were performed at approximately the same 
flight condition , they may be processed together to obtain a single set of estimates . 
Each interval will be weighted by the number of time points in the interval . Default 
value of 1 is used . 

(6) SCALE- (seven-word vector) — scale factor for observations. The observa- 
tions are multiplied by corresponding elements of SCALE when read in to compensate 
for any scaling errors or sign changes . Default sets all elements of the vector to 1.0. 


r • i* 

a q V 9 a q a 
H n M x 


~e 


= l6 e 6 c 6 1 6 2 




Altitude Mach number q 


3 1 


(17) 

(18) 
(19) 


p r 9 a y p rj 

= [6 8 8, S 9 1* 

I a r 1 21 

|^a V Mach number qj 


( 20 ) 

( 21 ) 

( 22 ) 
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weighting matrix . The algorithm with this penalty function will be referred to as 
the modified maximum likelihood estimator . It is important in this formulation for 

the elements of D 2 to be small enough that, in general, 'j D2(c - is 


significantly less than 



2 ( 2 i-*i)* D1 ( 2 i 


yA- Thus the estimates of 


i=l 


those parameters that are well defined by the response data will not be altered. 


The first and second gradients of J now become 


J 

c 




y , )* Dlv c( z i - y,) + 2 ( c - c o)* D2 




+ 2D2 


(14) 


(15) 


where the second term of equation (12) has been neglected. 

When this feature is used, convergence is generally improved. With small 
enough values of D2, the estimates of the derivatives are not affected when the 
maneuver is well conditioned , but poorly conditioned maneuvers may converge and 
reveal some information instead of diverging. 


CONFIDENCE LEVELS 


One advantage of using a maximum likelihood estimator to determine aircraft 
stability and control derivatives is that an objective measure of the validity of the 
estimates is obtainable. With some other methods the main criterion of the validity 
of an estimate is the engineer’s subjective judgment. 


If the noise obeys the stated assumptions and D1 is, in fact, the inverse of the 
noise covariance matrix, the Cramer-Rao inequality (ref. 3) gives a lower bound 
on the covariance matrix of the estimates as follows: 





" N 


r 


V * 

E 

O 

1 

o 

o 

1 

o 

o 

> 

Z V c( z i ■ y i) D1V c( 2 i ■ y i) 


1- J 


_i=l 


(16) 


The right side of this inequality is recognized as ^ evaluated without the 

term for a priori. This expression is available in the minimization algorithm 
(eq. (12)), so these confidence levels (sometimes referred to in the literature as 
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uncertainty levels) may be obtained with little additional effort. They can be useful 
in assessing the validity of the estimates obtained even when the noise characteris- 
tics are different from those assumed. 


DESCRIPTION AND USE OF PROGRAMS 


A basic computer program and two associated programs form a package that 
has been used at the NASA Flight Research Center to successfully analyze 1500 
maneuvers from 20 aircraft. The basic program, referred to as the modified maxi- 
mum likelihood estimation program , or MMLE , is designed to obtain maximum likeli- 
hood estimates from flight data . The associated programs , SETUP and SUMARY , 
although not directly related to the mathematical aspects of parameter estimation , 
have proved useful in extracting aircraft derivatives. The programs are designed 
to be used easily with the longitudinal and lateral equations of motion (eqs. (4) to (7)) 
by applying appropriate default values. For the options in the programs, the values 
designated as defaults are used only if no other values are specified. Each program 
is discussed in detail in the following sections. 

In these programs a general matrix storage convention that permits flexibility 
and error checking is used . Each matrix is dimensioned with a fixed number of 
rows, MAX. The last row of the matrix, however, contains information about the 
matrix , instead of containing matrix elements . The first number in the last row is 
the number of rows of the matrix that are used; the second number is the number of 
columns used; and the third element is the matrix name in A format. For example, 
a 19 by 4 matrix called XJI could be stored in an array dimensioned 35 by 8 as: 


4 columns 4 columns 


( 

. 1 1 

1 9 row s l 

Matrix . . . , 

, i Unused 

elements 

1 

1 5 rows | 

Unused Unused 

i 

Last row 

19. 4. XJI ' Unused 


This convention permits a variable-size matrix to be stored in an array of fixed 
dimension. The matrix manipulation subroutines can also check matrix compatibility 
by examining the last row before performing operations . 

The programs use a standard matrix input format which facilitates data checking . 
The first card of any matrix to be input is a header card containing the name of the 
matrix, left-justified , in columns 1 to 4, the number of rows in the matrix, right- 
justified, in columns 9 to 10, and the number of columns in the matrix, right-justified, 
in columns 11 to 20. The body of the matrix follows, one row to a card, in an 8F10 
format . 

Additionally , the abbreviation T is used to denote true and F to denote false . 
NAMELIST variables follow the FORTRAN convention for type (names beginning 
with I, J, K, L, M, orN indicate integer variables; all other names indicate real 
variables) , unless stated otherwise. Exceptions to this convention are given in 
parentheses after the NAMELIST variable. 
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MMLE - MODIFIED MAXIMUM LIKELIHOOD ESTIMATION PROGRAM 


The MMLE program can be run on most large modern computers with 
FORTRAN IV compilers. Approximately 31,000^ words of core storage are required. 

If overlay or segmentation is used , this requirement can be reduced to about 
22,000^. Overlay and segmentation, however, are machine specific; directives 

for segmenting the MMLE program on the CDC OPERATING SYSTEM SCOPE 3.4 
(ref. 5) are included in appendix A (p . 92) and can be used as a guide for imple- 
mentation on other systems. Some form of automatic plotting equipment is desirable. 
The MMLE program plotting routines are written for a CalComp pen plotter (ref. 6) . 

If other plotting equipment is used , it may be necessary to modify the plotting rou- 
tines . The user must verify whether the routines supplied are compatible with the 
system being used . 

From 4000 to 20,000 words of temporary disk storage are required, depending 
on the number of data points. This requirement is doubled if plots are made. A tape 
drive (two if plots are desired) may be substituted for disk storage . 

Two types of input data are required for the MMLE program . The measured 
values contained in time histories of a flight maneuver must be available on cards , 
tape, or a disk file. These time histories are limited by dimensions in the plotting 
routines to 1000 time points per maneuver; these dimensions may be changed easily. 
In addition , the program must be provided information on the flight condition of the 
maneuver, values of pertinent characteristics of the aircraft, a set of starting esti- 
mates of the derivatives , and instructions controlling the activation of different 
program options. 

Listings of the MMLE program and its subroutines are given in appendix A . 

A sample case is presented in appendix B . 


Input Description 

The inputs required for the MMLE program are described in this section . Each 
program option is explained immediately after the description of the input that con- 
trols the option . 

Title card.— The title card contains any information needed to identify a partic- 
ular set of data that is appropriate to include in the printed and plotted MMLE output . 
All 80 columns on this card may be used . 

NAMELIST /INPUT / .— (See appropriate FORTRAN reference manuals for the 
format for specific machines.) The parameters included in the NAMELIST are as 
follows: 

(1) LONG, LATR- (logical) — type of aerodynamic mode to be analyzed. The 
mode type is indicated by LONG = T or LATR = T for longitudinal or lateral- 
directional, respectively. Only one type should be set. If neither is set, the type 
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is determined from the A matrix: LONG if A(l,2) > +0.5, LATR otherwise. This 
element is usually +1 in a longitudinal case or sin (ALPHA) in a lateral-directional 
case. 


Items (2) to (11) are related to the input time histories. The signals which are 
input from the time histories fall into three classes: observations, controls, and 
extra. The observations form a vector, z, seven words long; the controls form a 
vector, u, four words long; and the extra signals form a vector four words long of 
quantities not actually used in the estimation process but useful in evaluating the 
quality of the maneuver. For a longitudinal case. 


z = 

u 

Extra = [cp 

and for a lateral-directional case , 

z = 

u 

Extra = 


r . -i* 

a q V 9 a q a 

H n M x 


£ 


= |6 e 5 c 6 1 6 2 




Altitude Mach number 


—\ * 

q 


|^P P r cp a y p rj 

= \d 8 8, 8„1* 

a r 1 21 


[‘ 

[« 


“I* 

V Mach number q 


(17) 

(18) 

(19) 

( 20 ) 
( 21 ) 
( 22 ) 


(2) CARD, TAPE- (logical) — input source for time histories. Set either 
CARD = Tor TAPE = T . Only one of the two variables can be set to true in the 
NAMELIST . Default condition is TAPE = T . 


(3) SPS — sample rate of input time histories (samples per second) . If SPS is 
not set, a default value is computed from the times shown on the time histories. The 
times of the first two data points are subtracted and the difference rounded to the 
nearest 5 milliseconds . The reciprocal of this value is then used as the default 
value for SPS . 


(4) THIN- (integer) — thinning factor for input data. If THIN = 1, every point 
on the file is used; if THIN = 2, every second point is used, and so forth. SPS is 
the sampling rate of the data before this thinning. Default value of 1 is used. 

(5) NCASE — number of disjoint maneuvers to be used in obtaining one set of 
estimates . If two or more maneuvers were performed at approximately the same 
flight condition , they may be processed together to obtain a single set of estimates . 
Each interval will be weighted by the number of time points in the interval . Default 
value of 1 is used. 


(6) SCALE- (seven-word vector) — scale factor for observations. The observa- 
tions are multiplied by corresponding elements of SCALE when read in to compensate 
for any scaling errors or sign changes . Default sets all elements of the vector to 1.0. 
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(7) FIXED- (seven-word vector) — fixed biases for observations. The known 
biases are added to the corresponding observations after scaling (item (6)) but 
before any other operations with the data . Default sets all elements of the vector 
to 0. 

(8) DC- (four-word vector) — known biases for controls. These biases are 
added to the corresponding controls before any operations with the controls. 

Default sets all elements of the vector to 0. 

(9) NREC — number of data words in each record on input tape. This param- 
eter has no meaning if card input is used. The total number of words in each 
record should be at least NREC + 4, because the first four words in the record 
contain the time (hours, minutes, seconds, milliseconds) and are not counted as 
data words. (See data file input section, p. 24.) NREC is limited by program 
dimensions to <100. Default value of 15 is used unless BOTH = T (item (11)); then 
the value of 25 is used instead. 

(10) ORDER- (15-word integer vector) — location of desired signals on input 
tape. This parameter has no meaning if card input is used. The signals z, u, and 
extra are considered to form a single vector of signals, and ORDER describes a 

mapping of the data record from the tape onto this vector. The I tJl word in the 
resulting vector is set equal to the ORDER (I) data word in the tape record . (The 
first four words in the tape record contain the time and are not counted as data 
words.) The default is ORDER (I) = I for I = 1,2, . . .15, which implies that 
there is no reordering from the input tape to the program. 

(11) BOTH- (logical) — special signal order with both longitudinal and lateral- 
directional data on the tape. This parameter has no meaning if card input is used. 

If BOTH = T, the input tape is assumed to contain all the data, both longitudinal 
and lateral-directional, in a specific order. This order is a, q, V, 9, a , q, a , 

8 , 8 , 8^, 8„, <p , altitude, Mach number, q, (3, p, r, a , p, r, 8 ,8 ,8 1 

' y a r ^ lateral 

and Sg , where normally all angular measurements are in degrees, accelera- 

^lateral 

tions in g units, and velocities in feet per second. Also, if BOTH = T, NREC is 
overridden and set to 25; if the case is lateral-directional, the ORDER array is 
automatically set to [16 17 18 12 19 20 21 22 23 24 25 1 3 14 15], which 
overrides any order that may have been read in . Thus if the tape has data in the 
proper order , BOTH may be set to T and the program will automatically pick off the 
appropriate signals for the type of case being analyzed. Default condition is F. 

Items (12) to (18) specify the form of the plotted output. 

(12) PLOTEM- (logical) — time history plots comparing measured and estimated 
response produced if PLOTEM = T . If PLOTEM = F , no plots are made . If the 

a priori variation option (item (53)) is activated, the related derivative plots will be 
made instead. Default condition is T. 

(13) PLTMAX — maximum error for plotting. If the error sum, J, of the last or 
next to last iteration is greater than PLTMAX, time history plots are not made, even 
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if PLOTEM = T, to avoid exceeding reasonable plotter limits. Instead, the measured 
time histories are printed to provide hints about the presumed problem . PLTMAX 
may not be larger than ERRMAX (item (22)) or it will be set equal to ERRMAX by 
the program. Default value of 1 . X 10 5 is used. 

(14) INCH- (logical) — plots scaled for inch grid paper if INCH = T; otherwise, 
for centimeter grid paper . Default condition is F . 

(15) ZMIN, ZMAX- (seven-word vectors) — minimum and maximum values on 
vertical axis for plots comparing measured and estimated observations . The axes 
are 4 centimeters long (2 inches if INCH = T) . If corresponding elements of ZMIN 
and ZMAX are equal for any signal , automatic scaling will be used on that signal . 
Default values are all 0 (which implies that automatic scaling is used for the default , 
since ZMIN = ZMAX) . 

(16) DCMIN, DCMAX- (eight-word vectors) — minimum and maximum values on 
vertical axes for plots of controls and extra signals. The comments about ZMIN and 
ZMAX (item (15)) apply. In addition, if automatic scaling is used for a signal and 
there is no nonzero point on that signal , the plot of the signal will be omitted . 

Default values of 0 are used. 

(17) NCPLOT — number of controls and extra signals for plotting. Only the 
first NCPLOT controls and extra signals will be plotted in addition to the observa- 
tions. This option may be used to reduce plotting of data that may be extraneous 
for some cases. The value of NCPLOT must be between 1 and 8, inclusive. Default 
value of 8 is used. 

(18) TIMESC — time scale for plots in seconds per centimeter (or seconds per 
half inch if INCH = T) . Default value of 1 . is used. 

(19) PRINT- (logical) — time histories based on measured data and final com- 
puted time histories printed if PRINT = T. Default condition is F. 

(20) TEST- (logical) — extra output printed each iteration if TEST = T to facili- 
tate debugging. Extra output includes time histories (in radians) , the transition 
matrix (ref. 8) and its integral, and the first and second gradients of J. Default 
condition is F . 

(21) NOITER — number of iterations desired. NOITER = 0 is defined as a special 
case for which the program computes the final time histories using initial estimates 

of the unknown coefficients; that is, the parameter estimation step is omitted entirely. 
The measured time histories are always printed when NOITER = 0, regardless of the 
value of PRINT (item (19)) . Default value of 6 is used. 

(22) ERRMAX — maximum allowable error sum. If the error sum, J, at any time 
becomes greater than ERRMAX , this is taken as an indication that the process is not 
converging properly . Therefore , iteration will stop and the measured time histories 
will be printed to provide clues to the reason for the problem . Default value of 

1. X 1(P 0 is used. 
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(23) BOUND — convergence bound. If the error sum, J, in any iteration 
changes by less than BOUND times the error of the previous iteration , the process 
is assumed to have converged and iteration is stopped. Default value of 0.001 is 
used . 

(24) PUNCH- (logical) — punched card output of nondimensional estimates. If 
PUNCH = T , the final estimates of the nondimensional derivatives are punched on 
cards along with the confidence levels obtained from the Cramer-Rao bound . 

Default condition is F . 

(25) PUNCHD- (logical) — punched card output of dimensional estimates. If 
PUNCHD = T, the final dimensional A and B matrices are punched on cards. These 
cards can be used to restart the program from the final values. Default condition 

is F . 


(26) NEAT — number of time reductions in computation of transition matrix, 

e A ^ 1 , and its integral. In typical aircraft uses, a direct series evaluation of e AAt 
may become computationally unstable for sample rates less than about 10 samples 
per second. In such cases, the power series evaluation has been used to compute 
Ax A t 

e and its integral, with i = • The desired transition matrices are then 

2 

obtained after recursive applications of the formulas: 


At = [ e Mi>/2] 2 

t t/2 

jfe As as = [e W)/2 + l] j e As ds 


(23) 

(24) 


This process provides improved computational stability without increased time or 
complexity. In general, NEAT should be large enough to make t < 0.05 second. 
NEAT = 0 implies direct series computation. Default value of 0 is used. 

Items (27) to (48) are related to the geometry of the aircraft and the flight condi- 
tion. Items (28) to (35) are required only if nondimensional derivatives are of inter- 
est. If these items are not entered, very large values of all nondimensional deriva- 
tives will be printed as a result of the default values to avoid accidental use of the 
meaningless nondimensional coefficients . 

(27) METRIC- (logical) — unit designation for aircraft data. If METRIC = T, all 
units are standard SI (MRS) units (meter, kilogram, second); otherwise, U.S. Cus- 
tomary (EGS) units are assumed. Default condition is F. All input data units must 
be consistent with the system specified . 

(28) GROSWT — aircraft gross weight (pounds or newtons) . Default value of 
1 . X 10 9 is used . 
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(29) IX- (real) — moment of Inertia about the X-axis. This parameter is not 
needed for longitudinal cases (slug-ft 2 or kg-m 2 ) . Default value of 1 . X 10 9 is used. 

(30) IY-(real) — moment of inertia about the Y-axis. This parameter is not 
needed for lateral-directional cases (slug-ft 2 or kg-m 2 ). Default value of 1 . X 10 9 
is used . 

(31) IZ-(real) — moment of inertia about the Z-axis. This parameter is not 
needed for longitudinal cases (slug-ft 2 or kg-m 2 ). Default value of 1 . X 10 9 is used. 

(32) IXZ-(real) — cross-product of inertia between X- and Z-axes. This param- 
eter is not needed for longitudinal cases (slug-ft 2 or kg-m 2 ) . Default value of 0 is 
used . 

(33) SPAN — wing span (ftorm). Default value of 0. 001 is used . 

(34) CBAR — reference chord (ft or m) . Default value of 0.001 is used. 

(35) S — reference wing area (ft 2 or m 2 ) . Default value of 0.001 is used. 

Items (36) to (42) concern instrument locations relative to the center of gravity. 
Angle-of-attack and angle-of-sideslip vane readings are corrected to the center of 
gravity by using the angular rates. The system model includes an arbitrary accel- 
erometer location , so that accelerations need not be corrected to the center of grav- 
ity. The longitudinal axis locations are positive for instruments forward of the 
center of gravity, and the normal axis locations are positive for instruments below 
the center of gravity . All values are in feet or meters, and a default value of 0 is 
used . 

(36) XB - location of angle-of-sideslip vane along the longitudinal axis. 

(37) XALF - location of angle-of-attack vane along the longitudinal axis. 

(38) ZB — location of angle-of-sideslip vane along the normal axis. 


(39) XAY - location of a y 


accelerometer along the longitudinal axis. 


(40) 


ZAY — location of a 


y 


accelerometer along the normal axis. 


(41) XAN — location of accelerometer along the longitudinal axis. 


(42) ZAX — location of accelerometer along the normal axis. 

Items (43) to (46) are not used in the estimation process, but are useful for 
identifying the flight condition of the maneuver. They are passed to the SUMARY 
program for plot identification purposes. 

(43) CG — aircraft center of gravity in fraction of chord. Default value of 0.25 
is used. 
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(44) MACH- (real) - average Mach number. If 0, this parameter will be obtained 
from the input time history. Default value of 0 is used. 

(45) ALPHA — average angle of attack. If 999. , this parameter will be obtained 
from the input time history. Default value of 999. is used. 

(46) PARAM - any other parameter that might be used to distinguish between 
flight conditions. PARAM may be used as flap position or wing sweep. Default 
value of 0 is used. 


(47) Q - average dynamic pressure. If 0 , this parameter is obtained from the 
input time history (lb/ft 2 or N/m 2 ) . Default value of 0 is used. 

(48) V - average velocity. If 0, this parameter is obtained from the input time 
history (ft/sec or m/sec) . Default value of 0 is used. 


(49) VAR- (three-word logical vector) - option that controls variable bias. The 

fifth to seventh signals of the observation vector have an unknown bias that is in- 
cluded in the system model. (See p. 12 for the elements of the observation vector.) 
This bias is determined if the corresponding elements of VAR are T . The initial 
values of these variable biases are 0, except for the bias in a longitudinal case, 

which starts with a value of 1 . The bias on a signal that has a D1 weighting of 0 
cannot be determined; therefore, any attempt to determine a bias for an unweighted 
signal will be overridden in the program . Default sets all elements of the vector to T . 

(50) ZERO- (four-word logical vector) — option that requires the program to 
determine variable initial condition. For each element of ZERO that is T, a variable 
increment to the initial condition is determined for the corresponding state. This 
increment is added to the measured initial condition to obtain the initial condition 
used for the computed data. If the variable initial condition is used in conjunction 
with NCASE > 1 (item (5)) , the same increment from the measured value is used for 
each maneuver in the case. Default sets all elements of the vector to F. 


(51) ND1, D1RLX, D1TOL — parameters that affect diagonal D1 determination op- 
tion. This puts the program into a different mode of operation. A D1 weighting ma- 
trix (see matrix input section) should be determined for each airplane at the beginning 
of its flight program . This option automatically determines the diagonal elements of 
the D1 matrix based on a particular case and is activated if ND1 > 0. The program 
executes one run with the initial D1 matrix (described on p. 23) input, or its default, 
then applies a simple iterative algorithm ND1 times to determine the proper D1 
matrix . Each iteration of this algorithm involves another run through the estimation 


loop to obtain a set of weighted relative errors (E fc 


D1 


kk 



2 

d t). 


The algorithm is designed to find a D1 matrix that results in the weighted error 
being approximately 1 on each signal being used (as indicated by a nonzero initial 
estimate of the corresponding D1 element) . The motivation for this procedure is 
discussed in reference 3. The revised estimate of each diagonal element of the D1 
matrix is then produced by multiplying the previous estimate by a factor that 
depends on the previous weighted error of that signal, E and a relaxation factor, 
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D1RLX . If E k > 1, the factor is 7 g — 1\D1RLX + 1 ; and if E k < lf the factor is 
/ 1 \ \ k ) 

/-i- - ljDIRLX + 1. The variable D1TOL will stop this process if the process has 

\ E k ) 

converged before ND1 iterations. If, after any iteration, none of the weighted errors 

are greater than D1TOL or less than D1 ^ QL , a final iteration will be run, and the 

process will be stopped. The parameter WMAPR (item (52)) will be set to 0 if this 
option is used, regardless of the MMLE program's input value. If plotting was 
specified (item (12)) , only the time history using the final D1 vector will be plotted. 

If both the D1 vector determination and the a priori variation (item (53)) are acti- 
vated, the D1 vector will be determined first, and the a priori variation will use the 
final D1 matrix . Default values used are ND1 = 0, D1RLX = 1.2, and D1TOL = 1.4. 

Items (52) and (53) are related to the a priori feature. 

(52) WMAPR — overall weighting factor for a priori information. Each element 
in the a priori weighting matrices APRA and APRB (see matrix input section) is 
multiplied by WMAPR before use. A value of 0 implies that the a priori feature is 
not used in the estimation process. Default value of 0 is used. 

(53) NAPR, WFAC - parameters that control a priori variation option which puts 
the program into a different mode . If the a priori feature is used, a set of a priori 
weighting matrices should be selected at the beginning of the flight program for each 
aircraft analyzed. In determining the best weighting matrices to use, it is useful to 
run the same case with several values of WMAPR (item (52)) . Reference 3 describes 
this process . The option to vary the value of WMAPR is activated if NAPR is greater 
than 0. The program then runs the entire case a total of NAPR times with different 
values of WMAPR . The first run is with WMAPR = 0 , and the second run is with the 
value specified for WMAPR by item (52) (if 0 was specified, 0.001 is used instead) . 
For each subsequent run , the value of WMAPR used is WFAC times the value used 

on the previous run. Time history plots are never produced when this option is 
used; instead, if PLOTEM = T (item (12)), the final estimates of each of the deriva- 
tives are plotted versus WMAPR on a logarithmic scale. The a priori estimates , 
which may be considered as the estimates obtained as WMAPR approaches infinity , 
are also plotted to the right of the other estimates. These plots may then be used as 
described in references 3 and 8 to estimate the best values to use for the a priori 
weightings. For these plots to be correct, the NAMELIST variable PUNCH (item (24)) 
must equal F, because of the order in which the computations are performed. Default 
values of WFAC = 100. and NAPR = 0 are used. 

Time cards.— For each of the NCASE (NAMELIST item (5)) time segments to be 
included, one time card is required. The time cards contain the start and end times 
for the segment expressed as hours, minutes, seconds, and milliseconds in the for- 
mat (2 (312, 13, IX)) . The program starts the segment at the first time point greater 
than or equal to the start time and stops it at the last point less than or equal to the 
stop time . 

Matrix input.— Several input matrices are read next in a standard matrix input 
format. The matrices may be read in any order. Only the A and B matrices must be 
read in; the others may be read in if the default values are to be changed . 
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A matrix (4 by 4): The A matrix is the starting estimate of the stability matrix. 

For a longitudinal three-degree-of-freedom case it should be: 


z 

a 

I. 

z v 

-sin (0) cos (cp) 

3 . 

V 

M 

a 

Af 

<7 

M v 

0. 


X 

a 

0. 

x v 

-cos (0)g 


0. 

cos (cp) 

0. 

0. 



In a two-degree-of- freedom case the third column should be set to 0. For a lateral- 
directional case the A matrix should be: 


Y 

L 

N 


P 

P 

P 


0 . 


sin (a) -cos (a) cos (cp) cos (0) *L 

L L 0. 

p r 

N N 0. 

p r 

1 . cos (cp) tan (0) 0 . 


Average values of a , 0 , cp , and V are used in these matrices. 

B matrix (4 by 5 to 4 by 8): The B matrix is the starting estimate of the control 

matrix. The first four columns are for the control derivatives; the fifth column 
contains aerodynamic biases (treated as control derivatives , in which the control 
is defined as a constant value of 1 radian) . Usually, only these five columns are 
required. If NCASE is greater than 1, independent aerodynamic biases may be 
determined for up to the first four maneuvers when necessitated by trim changes 
or other factors. In this event, the fifth column's aerodynamic biases are included 
in every maneuver, the sixth column's biases are included in all maneuvers after 
the first, the seventh column's biases are included in all maneuvers after the second, 
and the eighth column's biases are included in all maneuvers after the third. Thus 
the total aerodynamic bias on the first maneuver would be in column 5; for the bias 
on the second maneuver, columns 5 and 6 would be added; for the third maneuver, 
columns 5,6, and 7 would be added; and for the fourth and all subsequent maneu- 
vers, columns 5, 6, 7, and 8 would be added. For a lateral-directional case the 
B matrix should then be: 


y 6 

a 

Y 5 

r 

6 1 

Y * 

6 2 

y o 

\ 

\ 

o 

L 8 

a 

L 6 

r 

l r 

5 1 

L s 

6 2 

L o 




N 6 

a 

W 6 

r 

6 1 

6 2 

N o 

% 

% 

\ 
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0. 

0. 

0. 

^0 
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For a longitudinal case the B matrix would be: 


Z 8 

e 

Z 8 

c 

z * 

5 i 

6 2 

z o 



1 
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M r 
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c 

Af c 

6 1 

M c 

6 2 

M o 

\ 

\ 

\ 

X 6 

e 

X 6 

c 

X R 

6 1 

6 2 

x o 

\ 

\ 

\ 

0. 

0. 

0. 

0. 

®0 

\ 

\ 
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AA array (4 by 4): The AA array defines which elements in the A matrix are 

to be determined by the program. Each element in the AA array should be either 
1 . or 0 . . A 1 . implies that the corresponding element in the A matrix will be esti- 
mated by the program, whereas a 0. implies that it will be held fixed at the starting 
value. If not read in, the AA array has the following default: 


Longitudinal 

— 


Lateral- 

-directional 

— 

‘ i. 

0. 

0. 

0. " 


" i. 

i. 

0. 

0." 

i. 

1. 

0. 

0. 


i. 

i. 

1. 

0. 

0. 

0. 

0. 

0. 


i. 

i . 

1. 

0. 

0. 

0. 

0. 

0. 


0. 

0. 

0. 

0. 


BB array (4 by 5 to 4 by 8): The BB array defines which elements in the 

B matrix are to be determined in the same manner as the AA array defines those in 
the A matrix . If not read in , the BB array defaults to: 

Longitudinal — Lateral-directional — 


" 1. 

0. 

0. 

0. 

l.“ 


' 1. 

1. 

0. 

0. 

1.' 

1. 

0. 

0. 

0. 

1. 


1. 

1. 

0. 

0. 

1. 

0. 

0. 

0. 

0. 

0. 


1. 

1 . 

0. 

0. 

1. 

0. 

0. 

0. 

0. 

1. 


0. 

0. 

0. 

0. 

1 . 


AR matrix (4 by 4): The AR matrix is the a priori stability matrix and contains 

the a priori value of the A matrix. If the a priori feature is used, the estimates are 
weighted toward the AR matrix values. In general, the a priori values and the 
starting values are the same, but it is possible to distinguish between them. If not 
read in, the AR matrix is set equal to the A matrix. 

BR matrix (4 by 5 to 4 by 8): The BR matrix is the a priori control matrix and 

plays a role similar to that of the AR matrix . If not read in , it is set equal to the 
B matrix . 
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APRA matrix (4 by 4): The APRA matrix contains a priori weightings for the 

stability matrix and contains the weightings to be assigned to the elements of the 
AR matrix for the a priori option. The program multiplies each relevant element 
in the APRA matrix by the overall weighting factor, WMAPR (NAMELIST item (52)) , 
and assigns it an appropriate diagonal location in the D2 matrix (eq . (13)) . No 
provision is made for the input of off-diagonal elements of the D2 matrix, although 
they are provided for in the algorithm. If not read in, the APRA matrix defaults to: 

Longitudinal — Lateral-directional — 


13000. 

0 . 

0 . 

0 . ’ 


’ 13000. 

13000. 

13000. 

0 

15. 

800. 

0 . 

0 . 


0.15 

500. 

5. 

0 

0 . 

0 . 

0 . 

0 . 


15. 

800. 

800. 

0 

0 . 

0 . 

0 . 

0 . _ 


0 . 

0 . 

0 . 

0 


APRB matrix (4 by 5 to 4 by 8): The APRB matrix contains a priori weightings 

for the control matrix and plays a role analogous to that of the APRA matrix. If 
not read in, the APRB matrix defaults to: 

Longitudinal — 



13000. 

13000. 

13000. 

13000. 

0 . 

0 . 

0 . 

0 


15. 

15. 

15. 

15. 

0 . 

0 . 

0 . 

0 


0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 


0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 

Lateral-directional — 








13000. 

13000. 

13000. 

13000. 

0 . 

0 . 

0 . 

0 


0.15 

0.15 

0.15 

0.15 

0 . 

0 . 

0 . 

0 


15. 

15. 

15. 

15. 

0 . 

0 . 

0 . 

0 


0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 


AP array (3 by 4): The AP array is used in the formation of the observation 
matrix G of equation (2) . For the aircraft identification problem, the observations 
generally available are either elements of the state vector, their derivatives, or 
accelerations. If only states and their derivatives are available, the G matrix 
would be identical to the A matrix. When accelerations are also of interest, the 
G matrix may still be expressed as a simple function of the A matrix; this function 
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is specified by the AP array . For example , consider the two-degree-of-freedom 
longitudinal case: 

a = Za + q- Q- cos (cp) sin (9)9 + Zg 8 g + ^Z^ + cos <p cos 9^ (25) 

(X v 


-Viz. 


where 

a = -cos cp cos 0 + a 

n bzas n instrument bias 

From this example it can be seen that /a - a ^ \ can be computed like a if 

\ bias) y 

appropriate terms are simply multiplied by constant values of or 0. Thus each 

element in the G matrix can be defined as the product of the corresponding element 

in R _1 A and a constant. These constants form the AP array. This formulation 
results in a considerable saving of computer time . It should be noted that the 
accelerometer offsets from the center of gravity (NAMELIST items (39) to (42)) add 
terms to the G matrix after the basic terms are computed from the AP array . If the 
AP array is read in, the BP array must also be read in. If not read in, the AP array 
defaults to the following standard forms: 


Longitudinal - Lateral-directional - 



BP array (3 by 5 to 3 by 8): The BP array plays a role analogous to that of the 

AP array. It defines the H matrix of equation (2) as a function of the B matrix. 

Each element in the H matrix is defined as the product of the corresponding elements 

in R _ ^B and the BP array. As in the G matrix, accelerometer offsets from the center 
of gravity may cause additional terms to be added to the basic H matrix. If either 
the AP or the BP array is read in , both must be read in . The BP array defaults to: 

Longitudinal — 

V V _V V V V _V V 

g g g g g 9 9 9 

1 . 1 . 1 . 1 . 1 . 1 . 1 - 1 . 

IIIIIII- 

g g 9 9 i J 9 9 9 
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Lateral-directional — 


V 
9 
1 . 
1 . 


V 

9 

1 . 

1 . 


V 

9 

1. 

1. 


V 

9 

1. 

1. 


V 

9 

1 . 
1. 


v 

9 

1. 

1 . 


V 

9 

1. 

1. 


V 
9 
1 . 
1. 


. R ^ atrix (4 by 4): The R matrix is an acceleration transformation matrix, 
not read in, it defaults to the unit matrix for longitudinal cases, or for lateral- 
directional cases to: 


If 


1. 

0. 

0. 

0 

0. 

1. 

l xz 

~ l x 

0 

0. 

! xz 

1. 

0 

0. 

0. 

0. 

1, 


D1 matrix (5 by 5 to 7 by 7): The D1 matrix is the signal weighting matrix 
The diagonal elements are the weightings used for each response signal in the cost 
functional. The size of this matrix determines the number of signals used in the 
analysis; therefore, if p and r are not measured for a lateral-directional case, the 
matrix should be 5 by 5. This reduction will save a significant amount of com- 
puter time If the D 1 matrix is diagonal, it should be entered as a vector containing 
elements . The program will then recognize that the matrix is diagonal 
and take advantage of this in its computations . A vector is indicated by a header 
? °f th T f number of columns . The vector is then entered on one card in 
an 8F10 format. If not read in , the D1 matrix is assumed to be diagonal with the 
following values: 


Longitudinal — 


[ 30000 . 200000 . 0 . 100000 . 2000 .] 

Lateral — 


[ 500000 . 1500 . 1000000 . 30000 . 5000 .] 

ENDCASE . — The end of the matrix input is signaled by a card with ENDCASE 
starting in column 1 . If no more cases follow , this card should have simply END 
instead of ENDCASE . 


Card input. If card input was specified, the input time histories are necessary 
here. For each time point there should be a record of two cards containing four 
time words (hours, minutes, seconds, milliseconds), seven observations , four con- 
ro s. and our extra signals. The order of these quantities is given in NAMELIST 

are in dir h™* ‘ S , <31 ?.’ I4 ‘. 7F10/8F10 >- Normally, the angular measurements 
are in degrees, the accelerations in g units, and the velocities in feet per second. 
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Data file input. - If tape input was specified, the time histories must be on an 
unformatted data file (either tape or disk) . The device number of this file should be 
specified as 4 by the control cards. This file by default has 4 time words plus 
15 data words per record, as in the card input, 3 he length of the records on this 
file and the order of the parameters (except for the time words) may be changed by 
the use of the NREC and ORDER parameters (NAMELIST items (9) and (10)); alter- 
nately, the file may be specified to be in the special BOTH form (NAMELIST item (11)) . 
Normally, the angular measurements are in degrees, the accelerations in g units, 
and the velocities in feet per second . 


Output Description 

Three basic forms of output are available from the MMLE program: printed, 

plotted (time history or derivative plots) , and punched card. 

Printed output. - The three levels of printed output are controlled by the param- 
eters PRINT and TEST (NAMELIST items (19) and (20)) . The basic output is always 
printed. If PRINT = T, measured and final computed time histories are also printed. 
If, in addition, TEST = T, time histories in radians, the transition matrices, and 
the first and second gradients of J are printed every iteration. The TEST parameter 
is generally used only for program debugging. 

Appendix B presents a listing for a sample case with only the basic output . 

The first page (p . 112) of the output listing summarizes the input options chosen, 
and the second page lists the matrices read in. The dimensional and nondimensional 
starting values are then summarized. An asterisk indicates the values held fixed; 
the other values are to be determined as unknowns in the program . Each iteration 
includes a printout of the revised A and B matrices, the integral squared error on 
each input signal, the weighted errors on each signal, and the total error sum . 

This iterative loop may terminate in three ways. If the error sum exceeds ERRMAX 
(NAMELIST item (22)) at any time, the iteration will stop immediately and the input 
time history will be printed (not included in appendix B) . If the maximum number 
of iterations is reached or the process converges within the range defined by BOUND 
(NAMELIST item (23)) , normal termination will occur. The message "ITERATION 
TERMINATED, ERROR WITHIN .00100 BOUND" indicates that the convergence bound 
caused termination in the sample case. 

Confidence levels in dimensional and nondimensional form are listed next . 

These confidence levels are analogous to the standard deviation. Their magnitude 
indicates the relative confidence to be placed in estimates of the same coefficient 
from different maneuvers. A small confidence level for a particular derivative esti- 
mate indicates that the estimate of the derivative should be very good . Confidence 
levels are useful in fairing estimated derivative values. 

The final page (p. 117) of the first case is a summary of the converged values. 
The final dimensional and nondimensional derivatives are printed in the same format 
as the starting values, followed by the final A and B matrices. The final integral 
squared errors, weighted errors, and total error sum are printed, followed by a 
summary of the convergence of the error sum . 
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If either the D 1 determination option (NAMELIST item (51)) or the a priori vari- 
ation option (NAMELIST item (53)) is activated, the program prints an appropriate 
message at this point and begins its second pass through the estimation loop. The 
outpu resumes from the top of the third page. This output pattern would be 

n,T^ a I ed ft S many tlmeS aS ®P ecifl ^ d by the option. If more cases follow , the same 
output pattern is repeated for each case. 

1 If P lottin e is invoked (NAMELIST item ( 12 )), time history 

piots like those in appendix B will be produced . On the observation signals the 
solid lines represent the flight data and the dotted lines are the computed fits. 

When plotting is invoked and the a priori variation option (NAMELIST item ( 53 )) is 
being used, time history plots are not produced, but, instead, the derivative plots 
discussed under that option (not included in appendix B) . 

, in r d ° U,PUt ■ - ,f ™ NCH = T (NAMELIST item (24)) , the nondimen- 

nal A and B matrices and confidence levels are punched on cards. These cards 
are preceded by a header card which contains the characters LATR or LONG 

PARAM Jlrr^Th 35 char acters of the title card and the values of MACH , ALPHA , 
AKAM, and CG . These cards are in the exact format required for the SUMARY 
plotting program. If the case is longitudinal, a computed appears in the 


matrix location for C 


trim 

m ’ an h C z appears in the location for C„ . 
0 z 0 


These quantities 


are of more interest in this form, although the confidence levels are not readily 
available. (The confidence levels punched are those for the original C and 
c z The equations used to compute these parameters are: 


m t 


(C + C \ 

_ \ m m o ) 


trim 


C 


(27) 


m 


8 


C 7 + C? a + C 8 - cos ( 0 ) cos (cp)-^— 

0 « V 6 trim T 


(28) 


These equations are valid only for a two-degree-of-freedom case with no lateral- 
directional cross-coupling terms. 

n „„ fin ®f dimensional A and B matrices may be output on punched cards if 
UNCHD - T (NAMELIST item (25)) is specified. These matrices may be used if it 
is desired to restart a case from the final values and run additional iterations. If 
the a priori feature is used in the restart, the original A and B matrices should be 
relabeled AR and BR and inserted (see discussion of AR and BR matrices, pp . 20-21) 
because the a priori values would be different from the new starting values. Any 
the ori £ inal run should also be subtracted from the data using 
EIXED (NAMELIST item (7)) in order to start at the same values as the final iteration 
ot the previous run . 


25 



SETUP - PREPROCESSING PROGRAM 


One of the most time-consuming portions of the analysis of aircraft stability and 
control derivatives is the preparation of input data for the derivative estimation pro- 
gram. The preprocessing program, SETUP, automates much of this work and is a 
key element in the routine processing of a large number of cases. It can produce, 
at the user's option, the data file and the punched input deck for the MMLE program. 
Listings of the program and its subroutines are presented in appendix C . A sample 
case is included in appendix D . 

The SETUP program reads a set of predicted derivatives to be interpolated and 
dimensionalized for the given flight condition. The flight condition may be specified 
by the user, or if appropriate data were recorded on a flight tape, the program can 
obtain the flight condition automatically , given only the start and stop times for the 
case. 

When the program is used in the most automated manner, the only inputs 
required for each case are the start and stop times, the type of case (longitudinal 
or lateral-directional) , and an indication of which controls were used for the partic- 
ular maneuver if more than one control is relevant. Using the program in this 
manner requires some preparation , but only at the beginning of the flight program 
rather than for each case. This distinction is important when several hundred cases 
are being analyzed, as has been done on several aircraft. 

In preparation for the most automated use of the SETUP program , the user must 
write four small FORTRAN subroutines. Subroutine TAPEIN reads a flight data tape, 
finds the time interval requested, and places the data and times from the data into 
two arrays. The sample included in appendix D reads an unformatted tape with time 
in the first four words. Subroutine RDSET provides any initialization needed for 
TAPEIN; in the sample case it reads the number of channels on the input tape and 
the channel numbers of the data needed. Subroutine COND obtains the flight condi- 
tion if it is to be computed automatically instead of read in manually . The averages 
of each of the data channels read in are available for use in this subroutine, and the 
subroutine can compute the required parameters from these averages. The sample 
obtains ALPHA, THETA, PHI, DETRIM, Q, V, and MACH from the data channel 
averages . The subroutine will also compute Q and V from knots indicated airspeed 
and altitude, if preferred. Weight, inertia, and center of gravity are not computed 
in the example subroutine, although they may be computed in user-supplied ver- 
sions. Subroutine CONDI reads in any data needed in subroutine COND, for 
instance, tables of inertia versus fuel weight. This subroutine, as given in appen 
dix C , is a null subroutine. 


Input Description 

The input data and the case specifications are described in the following sections. 

Options.- The options to be used are specified by the following cards . All the 
options begin in column 1 . The cards may appear in any order (except for the 
START card , as noted) . Only the first four characters of each card are checked . 
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WRITE TAPE — instructs the program to write a data file for the MMLE program . 
This option automatically invokes the READ TAPE option . 

PUNCH DECK — instructs the program to punch a data deck for the MMLE pro- 
gram. 

READ TAPE — instructs the program to read an input tape. This option might 
be specified if input tape data are needed to determine the flight condition for the 
punched data card deck. This instruction is redundant if WRITE TAPE was speci- 
fied. 

START — signals the end of the options and the start of processing . This card 
must be the last card in the options section . 

Vehicle characteristics . — The input segment that starts here and ends at, but 
does not include, User -sup plied data (p. 30) is required if PUNCH DECK was spec- 
ified in the preceding options. If PUNCH DECK was not specified, this segment must 
not be included . 

NAMELIST/WIND/: The following parameters may be input in NAMELIST format: 

(1) NABP — number of angle-of-attack breakpoints for predicted derivatives. 
Default value of 1 is used . 

(2) NMBP — number of Mach number breakpoints for predicted derivatives. 
Default value of 1 is used . 

(3) NBP — number of sets of predicted derivatives. Each set is identified 
subsequently as either lateral-directional or longitudinal and as having a particular 
value of the extra identifying parameter PARAM (used if the data are to be separated 
by some other criterion, such as wing sweep or flap position) . Thus if there is one 
longitudinal and one lateral-directional data set and no additional distinction is 
made, NBP = 2. Dimensions in the program restrict the value of NBP to less than or 
equal to 8 . Default value of 1 is used . 

(4) LATR, LONG- (eight-word logical vectors) — parameters that specify dy- 
namic modes of the predicted derivatives . The type of each set of predicted deriva- 
tives should be specified by setting the corresponding element of either LATR or 
LONG to true. Only one of the variables can be set to true in the NAMELIST. Default 
type for each set is longitudinal . 

(5) NCLA, NCLO — number of coefficients per lateral-directional and longitu- 
dinal data set , respectively . 

(6) CGLA, CGLO — reference center of gravity for lateral-directional and 
longitudinal predicted derivatives in fraction of reference chord . Default value of 
0.25 is used . 

(7) MZLA , MZLO - number of signals for the MMLE program to analyze in 
lateral directional and longitudinal cases (that is, the length of the D1 vector; see 
D1 matrix description, p. 23) . The values must be between 5 and 7, inclusive. 
Default value of 5 is used. 
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(8) WMLA, WMLO — overall a priori weighting for lateral-directional and 
longitudinal cases (WMAPR in MMLE program) . If WMLA or WMLO are not entered, 
the SETUP program will not read the appropriate APRA and APRB matrices dis- 
cussed subsequently and will use a weighting of 0. If WMLA or WMLO are set to 0, 
the corresponding APRA and APRB matrices will be read by the SETUP program and 
punched with the MMLE program card deck , although the weighting on the matrices 
will still be 0. If WMLA or WMLO is set to a positive value, the APRA and APRB 
matrices will be read and punched normally . If WMLA or WMLO is set to a negative 
value, the APRA and APRB matrices will not be read and the absolute value of WMLA 
or WMLO will be passed to the MMLE program (using the MMLE program's defaults 
for the APRA and APRB matrices) . In all these cases, the lateral-directional usage 
and longitudinal usage are independent. 

(9) DEG, RAD- (logical) — parameters that specify degrees or radians for units 
of predicted derivatives by setting either DEG = T or RAD = T. Only one of the two 
variables can be set to true in the NAMELIST. The rotary derivatives are per radian 
regardless of this option. Default condition is DEG = T. 

(10) METRIC- (logical) — parameter that specifies SI (MRS) units if true and 
U.S. Customary (EGS) units if false. All input data units must be consistent with 
the system specified . Default condition is F . 

(11) BODY, STAB- (logical) — parameters that specify axis system of longitudi- 
nal predicted derivatives as body or stability . Only one of the two variables can be 
set to true in the NAMELIST. (Lateral-directional data are in the body axes system 
independent of this option.) Default condition is STAB = T. 

(12) S — value of reference wing area (ft 2 or m 2 ). 

(13) SPAN — value of reference wing span (ft or m) . 

(14) CBAR — value of reference wing chord (ft or m) . 

(15) SPS — samples per second for data file. If not specified, 0 is passed to 
the MMLE program which then , by default , determines SPS from the times on the 
data file . 

(16) PUNCH- (logical) — option passed to the MMLE program to control its 
PUNCH (MMLE NAMELIST item (24)) option to punch cards with final estimates of 
the nondimensional derivatives and confidence levels. Default condition is F. 

(17) XB , XALF, ZB, XAY, ZAY , XAN , ZAX — instrument locations relative to 
the center of gravity. The meaning of each of these parameters is the same as that 
given in items (36) to (42) of the MMLE NAMELIST except that, as used here, these 
values refer to the reference center of gravity for the predicted derivatives instead 
of the flight center of gravity . If 0 is entered , it is assumed that the signals have 
been corrected to the flight center of gravity , and no additional correction terms 
will be used. Default value of 0 is used. 

Vehicle name: The vehicle name is specified by up to eight characters, starting 
in column 1 . These eight characters will be used on the title card punched out for 
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the MMLE deck and will be included on the first line of the output from the SETUP 
program . 

Lateral-directional weighting matrix: The lateral-directional D1 matrix is read 

in as a vector on one card in a 7F10 format. This vector is omitted if no lateral- 
directional predicted derivatives are read in . If every element is 0 , the default in 
the MMLE program will be used . 

Longitudinal weighting matrix: The longitudinal D1 matrix is read in as a 

vector. The comments for the lateral-directional D1 vector apply. 

Lateral-directional APRA and APRB matrices: The APRA and APRB matrices 

for lateral-directional cases are in standard matrix input format . As mentioned 
above, these matrices are omitted if the WMLA parameter was not read in or was set 
to a negative value . 

Longitudinal APRA and APRB matrices: The APRA and APRB matrices for 
longitudinal cases are in standard matrix format. The matrices are omitted if the 
WMLO parameter was not specified or was negative. 

Predicted derivatives: NBP sets of predicted derivatives are required in the 
order specified in item (4) of SETUP NAMELIST/WIND/. Each set consists of data 
for NCLA or NCLO coefficients , depending on whether the set is lateral-directional 
or longitudinal . The data for each coefficient may be read as a function of Mach 
number and angle of attack , or as a function of Mach number only in the following 
forms . 

The data for each coefficient begin with a header card containing the coefficient 
name in the first four columns and either a 1 or a 2 in column 10; a 1 indicates that 
the coefficient is a function of Mach number only , a 2 indicates that it is a function 
of Mach number and angle of attack. The only acceptable coefficient names are: 
lateral-directional - CYB, CLB , CNB , CLP, CNP, CLR, CNR, CYDA , CLDA, CNDA , 
CYDR , CLDR , CNDR , CYD1, CLD1, CND1, CYD2 , CLD2 , CND2; longitudinal (body 
axes) - CNA , CMA , CAA, CMQ, CNV, CMV, CAV, CNDE , CMDE , CADE, CNDC, 

CMDC , CADC , CND1 , CMD1, CADI, CND2 , CMD2 , CAD2 , CN , CA; longitudinal 
(stability axes) - CLA, CMA, CDA, CMQ, CLV, CMV, CDV, CLDE , CMDE, CDDE , 
CLDC, CMDC, CDDC , CLD1, CMD1, CDD1, CLD2 , CMD2 , CDD2 , CL, CD. The 
first two characters of each name indicate the force or moment coefficients (for 
lateral-directional , CY = side force , CL = rolling moment , and CN = yawing 
moment; for longitudinal, CL = lift force, CD = drag force, CN = normal force, 

CA = longitudinal force (positive direction is rearward)), and the remaining char- 
acters indicate the quantity with respect to which the derivative is taken. (A ~ angle 
of attack, B ~ angle of sideslip, P, Q, R ~ angular rates, V ~ velocity, DE, DC, 

DA, DR, Dl, and D2 ~ controls.) 

If the coefficient is a function of Mach number and angle of attack , the data for 
each Mach number appear on a separate card , with each card containing the values 
of the coefficient for the NABP angle-of-attack breakpoints. These cards are in an 
8F10 format, and the card entries may be continued on additional cards if needed. 
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If the coefficient is a function of Mach number only , the values for the NMBP 
Mach number breakpoints appear on one card in an 8F10 format. As before, this 
card may be continued if needed . 

Angle-of-attack breakpoints: A card containing the NABP values of the angle- 
of-attack breakpoints in an 8F10 format is necessary. If NABP = 1, this card mav 
be blank . 

Mach number breakpoints: A card containing the NMBP values of the Mach 
number breakpoints in an 8F10 format is necessary. If NMBP = 1, this card mav 
be blank . 

Arbitrary parameter breakpoints: A card containing the NBP values of PARAM 
to distinguish the predicted derivative data sets is necessary. If no distinction 
other than longitudinal and lateral-directional is used , this card may be blank . 

The card is in an 8F10 format. 

User-supplied data for subroutine CONDI .- Any input required for subroutine 
CONDI goes in the input data at this point. With the subroutine supplied, there is 
none. 

Input tape data. - The input tape data section should be omitted if the READ 
TAPE option is not active . Any input required by subroutine RDSET is made here . 
The subroutine supplied requires a card with the number of data words per record 
of the input tape; this card is in an 15 format. This is followed by three cards 
containing the channel numbers of the 40 channels to be used; each of these cards 
is in a 1615 format. A 0 indicates a signal not used. The first 25 signals will be put 
on the MMLE program tape if a tape is written . (The signals should be in the BOTH 
order defined by item (11) in the MMLE NAMELIST.) The last 15 of the 40 channels 
are reserved for use in subroutine COND , should they be needed. These last 
15 channels are typically used for fuel weight, flap position, or any other quantities 
useful in identifying the flight condition and vehicle configuration . The SETUP 
program automatically averages the values of all 40 data channels over the requested 
time interval and passes these averages to subroutine COND through a labeled com- 
mon block . 

Case specification The case specification is repeated as many times as neces- 
sary, once for each case to be analyzed. 

Time card: The start time and end time for the case in hours, minutes, seconds, 
and milliseconds are required . The format is 2 (312 ,13 , IX) . 

NAMELIST / COND/ : The following parameters may be read in NAMELIST/ 

COND/: 

(1) LONG, LATR- (logical) - type of case to be analyzed. Set either LONG or 
LATR to true. Only one of the two variables can be set to true in the NAMELIST . 

(2) CASE- (integer) - case number. Default value of 0 is used. 
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(3) DELTA- (four-word logical vector) — option that specifies which controls 
were used in the maneuver . A value of T for any element of DELTA indicates that 
the corresponding control was used. If all four locations are F (default condition) , 
the MMLE program default is used; this default is 8^ for longitudinal cases, S q and 

8^, for lateral-directional cases . If DELTA is omitted in a case but has been specified 

in a previous case of the same type (longitudinal or lateral-directional) , it will 
assume the values of the previous case. 

(4) FLT- (integer) — flight number. This identification is needed only on the 
first case. 

All the following items may be set in subroutine COND instead of reading them 
in at this point. The subroutine supplied will set ALPHA, THETA, PHI, DETRIM, 

Q, V, and MACH if the READ TAPE option is active. 

(5) ALPHA — average angle of attack. 

(6) THETA — average pitch attitude. Default value of 0 is used. 

(7) PHI — average roll attitude. Default value of 0 is used. 

(8) Q — average dynamic pressure. 

(9) V — average velocity. 

(10) MACH- (real) — average Mach number. 

(11) PARAM — extra identifying parameter. If nonzero, the predicted deriva- 
tive data with the same value of PARAM will be used for the derivatives. If there is 
only one longitudinal data set or one lateral-directional data set , or a longitudinal 
and a lateral-directional data set , PARAM need not be specified . Default value of 

0 is used . 

(12) W — aircraft weight (pounds or newtons) . 

(13) IX, IY , IZ-(real) — moments of inertia (slug-ft 2 or kg-m 2 ) . 

(14) IXZ-(real) - cross-product of inertia (slug-ft 2 or kg-m 2 ). Default value 
of 0 is used . 

(15) CG — center of gravity in fraction of chord. Default is the predicted 
derivative reference value . 

(16) DETRIM — trimmed value of 8 . Default value of 0 is used. 

e 

Items (17) and (18) are simply for convenience^ q and V are not readily avail- 
able . The subroutine COND supplied may compute q and V from the values of indi- 
cated airspeed and altitude , using an approximation to the standard atmosphere . 
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(17) KIAS-(real) — knots indicated airspeed. If KIAS is nonzero, q and V will 
be computed. Default value of 0 is used. 

(18) ALT — altitude (ft or m) . Default value of 0 is used. 

End card: The last card in the data deck contains a -1 in the first two columns 
to indicate the end of the data . 


Output Description 

The two primary outputs of the SETUP program are the MMLE program data 
tape and the punched card deck . These outputs are described in the MMLE Input 
Description section. A permanent disk file may be substituted for the data tape, 
without modifying the program . The punched card deck from SETUP will be ready 
to run through the MMLE program with the addition of control cards and the substitu- 
tion of an END card for the last ENDCASE card at the end of the deck . 

The printed output includes the predicted derivatives. For each case the data 
channel averages as passed to subroutine COND are printed if an input tape was 
read . All matrices punched in the MMLE program card deck are also printed for 
easy reference. A sample case is presented in appendix D. 

SUMARY - PLOTTING PROGRAM 


Data presentation can be a time-consuming portion of the derivative estimation 
process when a large number of maneuvers are involved. It is still common to 
laboriously plot derivatives and wind-tunnel data by hand , a procedure which can 
easily take longer than the entire estimation process . To efficiently utilize available 
manpower , graphs or data listings should be automatically produced . The SUMARY 
program produces plots of estimated derivatives and confidence levels as a function 
of angle of attack and , if desired , provides predicted derivative values for compar- 
ison . The program is presented as a prepared package that may be modified to meet 
users' specific data presentation requirements. Listings of the program and its 
subroutines are presented in appendix E. A sample case is given in appendix F . 

The SUMARY program reads a set of predicted and flight-determined deriva- 
tives, and plots specific groups of the data as instructed. Several groups may 
appear on one plot, indicated by different symbols. The same predicted derivative 
card deck used for the SETUP program may be used in the SUMARY program , or 
predicted derivatives may be omitted. The flight-determined derivatives are 
punched out by the MMLE program in the exact format required for the SUMARY 
program . 


Input Description 

Title card.— The title card contains any information needed to identify a partic- 
ular set of data that is appropriate to include in the printed output . All 80 columns 
on this card may be used. 
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NAMELIST /WIND/. - Parameters in NAMELIST/WIND/ are as follows: 

(1) NABP — number of angle-of-attack breakpoints for predicted derivatives. 
Default value of 1 is used . 

(2) NMBP — number of Mach number breakpoints for predicted derivatives. 
Default value of 1 is used . 

(3) NBP — number of sets of predicted derivatives. The definition of a set of 
predicted derivatives is the same as that in the SETUP program . Default value of 

1 is used. 

(4) LONG, LATR- (eight-word logical vectors) — types of each set of predicted 
derivatives . The type is specified by setting corresponding element of either LONG 
or LATR to true. Only one of the two variables can be set to true in the NAMELIST . 
Default type for each set is longitudinal. 

(5) NCLA , NCLO — number of coefficients in lateral-directional and longitudi- 
nal data sets, respectively. Default value of 0 is used. 

(6) CGLA, CGLO — reference centers of gravity for lateral-directional and 
longitudinal predicted derivatives in fraction of chord. Default value of 0.25 is used. 

(7) SHIFT- (logical) — parameter that corrects data for center-of-gravity loca- 
tion. If true, the flight C and C will be corrected to the predicted derivative 

m n n 

a p 

reference center of gravity . Default condition is F . 

(8) DEG, RAD- (logical) — options that specify degrees or radians for units of 
predicted derivatives . Only one of the two variables can be set to true in the NAME- 
LIST. Rotary derivatives are per radian regardless of this option . Default units are 
degrees . 

(9) BODY, STAB- (logical) — options that specify body or stability axes for 
input of predicted derivatives. If STAB = T, longitudinal predicted derivatives are 
converted from stability to body axes. If BODY = T, no conversion is made. Only 
one of the two variables can be set to true in the NAMELIST . Default condition is 
STAB = T. 

(10) PRINT- (logical) — option that prints out predicted derivatives, if true. 
Default condition is F . 

(11) WTPLOT- (logical) — option that plots predicted derivatives, if true. 

Default condition is T . 

(12) CBAR, SPAN — aircraft reference chord and span, respectively. These 
quantities are needed only if SHIFT = T and there are lateral-directional data . 

Default values of CBAR = 0 and SPAN = 10 50 are used. 

(13) AMIN, AMAX — minimum and maximum for values on angle-of-attack axis. 
Default values of AMIN = 0 and AMAX = 12 . are used . 
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(14) ASCALE — scale for angle-of-attack axis in degrees per centimeter. 

Default value of 1 . is used. 

(15) YLEN — length of ordinate axis in centimeters. Default value of 10. is 
used . 

(16) XDIST — X-distance between plots in centimeters. Default value of 10. is 
used. 

(17) CRFACT — factor by which confidence levels are multiplied before 
plotting. If equal to 0, no confidence levels are plotted. Default value of 1. is used. 

(18) NPARAM — variable which distinguishes the two modes of data organiza- 
tion to be used . If NPARAM = 0 , flight data points are sorted by Mach number to 
the nearest Mach number breakpoint. Plots are then produced with the different 
Mach numbers indicated by different symbols. If NPARAM > 0, Mach number is 
ignored and the data are sorted by the value of PARAM, the extra identifying param- 
eter, to the nearest PARAM breakpoint. Plots are then produced with different 
symbols distinguishing these groups . The lowest Mach number of the predicted 
derivatives is plotted if more than one Mach number breakpoint is specified. Only 
one predicted derivative curve is plotted. In this case there should be only one 

set of lateral-directional and one set of longitudinal predicted derivatives; if there 
is more than one set, only the first will be plotted. Default value of 0 is used. 

Predicted, derivatives . — The NBP sets of predicted derivatives are necessary 
in exactly the same format required for the SETUP program , including the cards 
with angle of attack, Mach number, and PARAM breakpoints. 

Flight data. — The flight data desired are required at this point in the form 
punched on cards by the MMLE program if PUNCH = T (p . 25) . 

(1) Header card - TYPE, TITLE, MACH, ALPHA, PARAM, CG in format 
A4 , IX , A35 , 4F10 . TYPE is either LONG or LATR . 

(2) A, B, AC, BC matrices in nondimensional form. The AC and BC matrices 

contain the confidence levels . The fifth column of the B matrix in a longitudinal 
case should contain C„ in the first row and 8 in the second row if they are 

trim 

desired for plotting. These quantities replace the logically expected, but more 
difficult to interpret, quantities (perturbation C„ and C ) from which they are 
derived. 0 m 0 

Plotting instructions The end of the flight data and the beginning of the 
plotting instructions are signaled by a card with PLOT in the first four columns. 
Then, for each set of plots desired, the following instruction cards are needed: 

(1) TYPE, PARM, TOL - TYPE is either LATR or LONG. PARM should equal 
one of the PARAM breakpoints of the predicted derivatives. The program will then 
select the corresponding set of predicted derivatives to be used . Flight data points 
with this same value of PARAM (±TOL) will be selected for plotting. For instance, 
if PARM = 35. and TOL = 2. , a flight point with PARAM = 36. will be plotted, but 
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a flight point with PARAM = 38. will be rejected. In the special case, PARM = 0, 
the first set of predicted derivatives of the correct type (LATR, LONG) is used 
together with all the flight data. The format of this card is A4,F6,F10. 

(2) Up to six cards specifying the derivatives to be plotted and the scales to 
use. Four plot instructions are included on a card (less may be on the last card) . 
Each plot instruction is of the form DERIV , SMIN, SMAX; DERIV is the derivative 
name , and SMIN and SMAX are the minimum and maximum values for the ordinate . 
The valid derivative names are the same as those in the SETUP program for lateral- 
directional data; for longitudinal data, all the body axis derivative names except 
CA are valid and the additional name of DE may be used to plot 8 versus 
e trim 

a trim ' If SMIN = SM AX (in particular, if left blank) , automatic scaling will be used 
for the plot. The format of these cards is 4(A4,F6,F10) . 

End card. — The end of the plotting instructions is signaled by a card with END 
starting in column 1 . 


Output Description 

The printed output from the SUMARY program includes the header cards for all 
flight points read in and a summary of the plotting instructions . The predicted 
derivatives are printed if PRINT is set to T. In addition, informative messages are 
provided if no predicted derivatives or flight data are available at a requested condi- 
tion . 

Plots are scaled for centimeter grid paper . Confidence levels are indicated by 
vertical bars. Predicted derivative data are identified by small symbols that 
correspond to those in the figure legend , at the beginning and end of each curve . 

A sample is shown in appendix F . 


CONCLUDING REMARKS 


A digital computer program written in FORTRAN IV has been successfully 
applied by relatively inexperienced personnel to aircraft linear parameter estimation 
problems with measurement noise but no state noise . This maximum likelihood esti- 
mation program includes an option for using a priori information and provides esti- 
mates of the derivatives and confidence levels. A program to automate the setup 
work and a program to plot the results have also been written. The three programs 
form a package which has been used to successfully analyze 1500 maneuvers on 
20 aircraft. 


Flight Research Center 

National Aeronautics and Space Administration 
Edwards, Calif., January 22, 1975 
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APPENDIX A 


MMLE PROGRAM AND SUBROUTINES 


Listings of the main program and the subroutines used in the MMLE program are 
presented. The listings are preceded by a brief description, a flow chart, when 
needed for clarification, and programing notes which explain some of the conven- 
tions used and point out items needed to understand the operation of the program . 


MAIN MMLE PROGRAM 


Description: The main MMLE program activates the three operating modes of 

the program (basic mode, D1 determination mode, and a priori variation mode) . 

Flow chart: 
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APPENDIX A - Continued 


Programing notes: The PROGRAM card is required on CDC 6000/7000 systems. 
On an IBM 360/370 system the following DD cards, or equivalent information, are 
necessary to perform the same function as the PROGRAM card: 

//GO .FT02F001 DD SYSOUT=B ,SPACE=(TRK , 10.RLSE) , 

// DCB=(RECFM=FB ,LRECL=80 ,BLKSIZE=3520) 

/ /GO .FT03F001 DD SYSOUT=A ,SPACE=(TRK , 50 ,RLSE) , 

// DCB=(RECFM=FBA ,LRECL=133 ,BLKSIZE=3458) 

/ /GO .FT04F001 DD DUMMY 

(Substitute the appropriate DD card for the input file if a tape or disk input is used.) 

/ /GO .FT08F001 DD UNIT=SYSDA ,DISP= (NEW , DELETE) ,SPACE=(CYL, (10,2)) , 

// DCB=(RECFM=VSB ,LRECL=92 ,BLKSIZE=924) ,DSN='PLOTTER DATA' 

/ / GO .FT07F001 DD UNIT=SYSDA , DISP= (NEW , DELETE) ,SPACE=(CYL , (10 , 2) ) , 

// DCB=(RECFM=VSB,LRECL=84,BLKSIZE=844) ,DSN='INTERNAL' 

/ /GO .PLOTTAPE DD DUMMY 

(Substitute the appropriate DD card for the plotter file as used on the particular 
system. The file name will be either PLOTTAPE or FT13F001, depending on the 
plotter software used.) 

/ /GO .FT01F001 DD* 

This routine alters PRINT and PLOTEM to suppress any extraneous output during 
intermediate steps of the D1 determination and the a priori variation option. 

Important variables — 

ND1, NAPR — control the D1 determination and a priori variation options as 
described in MMLE NAMELIST input. 

D2 — vector of final weighted relative errors returned from the estimation 
process . 

STORE — storage for final coefficient values during a priori variation . It is 
used to plot these values . 
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APPENDIX A - Continued 


Program listing: 




PROGRAM MMLE( INPUT, PUNCH, OUTPUT ,T AP E4 , T APE7 , T APE8 ,T AP El 3 » 

MAIN 

0 


_ 

TAPE1=INPUT*TAPE2=PUNCH,TAPE3= OUTPUT) 

MAIN 

10 

c 



MAIN 

20 

c 



MAIN 

30 



COMMON /ALLDIM/ MAX, MIX 

MAIN 

40 



COMMON /BUF/ BUFFER ,Y 0 , THGT 

MAIN 

50 



COMMON /MATRIX/ A , B , A A , B B , AP , BP , 01 , R I 

MAIN 

60 



COMMON /COM/ NCAS£,MZ,NPTS,NPT, SPS , PR IN T , LONG , L AT R, PL OTEM , ND1 , 

MAIN 

70 


- 

D1T0L,D1RLX, NAPR,WF AC, WM APR, ERRS UM, LAST, RATIO 

MAIN 

80 



DIMENSION NPT S < 1 5 ) ,D1 (e, 7) , AHOLD (5 ,4) , 

MAIN 

90 


- 

0HOLO(5,8) ,02<7> ,A(5,4) ,B<5,0),AP(4,4),8P(4,8>,STORE<14,27> 

MAIN 

100 



,BUFF£R(1G24) ,RI <5, 4) 

MAIN 

110 



LOGICAL PLOTEM,LONG,LATR f PLT , A A (5,4),Eei5,8),STP,PRINT,PRNT, 

MAIN 

120 


- 

FIRST, LAST 

MAIN 

130 



F IRST= . TRUE. 

MAIN 

140 



last*, false. 

MAIN 

150 


5 

REWIND 4 

MAIN 

160 



REW1NO 8 

MAIN 

170 



REWIND 7 

MAIN 

180 



CALL EDIT 

MAIN 

190 



IF(NOl.EQ.Q.ANO.NAFR.LT.l) GC TO lli 

MAIN 

200 



PlT=PLOTEM 

MAIN 

210 



IF < NAPR.GT.Q > PLGTEM*. FALSE. 

MAIN 

220 



PRNT=PRINT 

MAIN 

230 



WHOLO=WMAPR 

MAIN 

2 40 



WMAPR=0. 

MAIN 

250 



M AX =5 

MAIN 

260 



CALL AMAKE (AHOLD, A) 

MAIN 

270 



CALL AMAKE (BHOLO,B) 

MAIN 

280 

c 

** * ****** ************** 9 9** ¥** M»# +¥* BASE RUN 

MAIN 

2 90 


10 

CALL D A T A ( , TRUE. ) 

MAIN 

300 



call AGIRL 

MAIN 

310 



IF(NOl.EQ.U) GO TO 15 

MAIN 

320 



PL0TEM=. FALSE. 

MAIN 

330 



PRINT* . FALSE . 

MAIN 

340 


15 

CALL OUTPUT C D 2 > 

MAIN 

350 



IF (ND1.EQ.0) GO TO 100 

MAIN 

360 

c 

** * ^ 

««» D1 DETERMINATION (IF DESIRED) 

MAIN 

370 



T OL !•= 1 • /OITOL 

MAIN 

380 



DO 90 1*1, NOl 

MAIN 

390 



STP=.TRUE. 

MAIN 

400 



00 3u J= 1 , MZ 

MAIN 

410 



I F ( D1 (J,J) .NE.U . ) GO TO 22 

MAIN 

420 



D 2 ( J) =1. 

MAIN 

430 



GO TO 30 

MAIN 

440 


22 

I F ( 02 ( J ) »GT.D1T0L.0R.02(J).LT.T CL I) STP = . FALSE. 

MAIN 

450 



IF < 02 < J) . GT. 1 . ) GO TO 25 

MAIN 

460 



02 < J) = (1./D2 ( J)-l.) *01filX+l. 

MAIN 

470 



GO TO 27 

MAIN 

460 


25 

0 2 ( J ) =1 * / ( (D2(J)“1.)*01RLX + 1.) 

MAIN 

490 


27 

D1 ( J, J ) *D1 (J,J)*02<J) 

MAIN 

500 



02 ( J) =SQRT (02 (J) ) 

MAIN 

510 


30 

CONTINUE 

MAIN 

520 



IF( I.LT.ND1. AND. .NOT . STP) GO TO 40 

MAIN 

530 



PLOTEM=PLT 

MAIN 

540 



PRI NT=PRNT 

MAIN 

550 


40 

WRI TE (3 ,20001 

MAIN 

560 
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APPENDIX A — Continued 


M A X = 8 


CALL ASPIT(Dl) 

M A X = 5 

CALL AMAKE (A, AHOLD) 

CALL AMAKE ( B t BHOL D ) 

CALL DATA ( .FALSE . ) 

CALL AGIRL 
CALL OUTP UT < C 2 ) 

IF(STP) GO TO 95 
9 Q CONTINUE 
95 WRITE <3*2002) 

M A X = 8 

CALL ASPIT(Dl) 

1GG I F ( NAPR ,GT . 0 ) GO TO 105 

I F ( .NOT • PLOTEM ) GO TO 200 
CALL THPLOT (FIRST) 

F IRST=. FALSE . 

GO TO 20U 

Q****»*»fM»*****»#*»»»»M»»**M*M»»M* 

105 PRINT=. FALSE. 

IF( WHOLD, EQ.O . ) WH0LQ=.QG1 
WMA PR = WHOLO 
1=0 

110 1=1+1 
J KM M= 0 

DO 130 J= 1 » 3 

00 120 K= 1 , 4 

IF(0B (J,K) ) GO TO 120 

JKMM= JKMM + i 

STORE ( I , JKMM) =B ( J, K) 

120 CONTINUE 

00 130 K = 1 1 3 

IF ( AA ( J,K) ) GO TO 130 

J KM J KMM + 1 

STORE< I, JKMM) *A(J,K) 

130 CONTINUE 

STORE (It JKMM +1)=ERRSUM 
M A X =5 


APRIORI VARIATION 


(IF DESIRED) 


140 


16L 


204 

20 00 
20 01 
20 0 2 


CALL AMAKE (A, AHOLD) 

CALL AMAKE (B, BHOLO) 

IF(I-NAPR) 140 »1 10 * 160 
WRITE (3 t 2001) WMAPR 
CALL DATA( .FALSE.) 

CALL AGIRL 
CALL OUTPUT (02) 

WMAPR^WMAPR+WFAC 
GO TO 110 

IF( .NOT.PLT) GO TO 200 

CALL APRPL T ( STORE ,AA,EE,NAPR,WHCLOiWFAC 

FIRST=. FALSE. 

IF ( .NOT. LAST) GO TO 5 
I F ( , NOT .F I RST ) CALL PLOT ( 0 0 . * 999 ) 
FORMAT ( 15H0D1 REVISED TO!) 

FORMAT (12H0WMAPR NOW =,E10.2> 

FORMAT ( 10 HOF INAL Dll) 

STOP 

ENO 


, LONG, FIRST, LA ST, RAT 10) 


MAIN 

1 570 

MAIN 

1 580 

MAIN 

590 

MAIN 

800 

main 

610 

MAIN 

620 

MAIN 

630 

MAIN 

640 

MAIN 

650 

MAIN 

660 

MAIN 

670 

MAIN 

680 

MAIN 

690 

MAIN 

700 

MAIN 

710 

MAIN 

720 

MAIN 

730 

MAIN 

740 

MAIN 

750 

MAIN 

760 

MAIN 

770 

MAIN 

780 

MAIN 

790 

MAIN 

800 

MAIN 

810 

MAIN 

820 

MAIN 

830 

MAIN 

840 

MAIN 

850 

MAIN 

860 

MAIN 

870 

MAIN 

880 

MAIN 

890 

MAIN 

900 

MAIN 

910 

MAIN 

920 

MAIN 

930 

MAIN 

940 

MAIN 

950 

MAIN 

960 

MAIN 

970 

MAIN 

980 

MAIN 

990 


MAIN1000 
MAIN10 10 
MAIN 10 20 
M A IN 1 0 30 
MAIN1040 
MAIN1050 
MAIN1060 
MAIN1070 
MAIN10 80 
M AIN 1090 
M AIN 1 1 0 0 
MAIN 1 1 10 
MAIN1120 
HAIN1130 


APPENDIX A - Continued 
SUBROUTINE EDIT 


Description: Subroutine EDIT initializes the program, sets defaults, and reads 

input options and matrices. 

Programing notes: If used with a system that does not support the NAMELIST, 

some other form of input might be used. 


Subroutine MATLD , called at card 1820, sets appropriate elements of ABC to 
-99999 when reading a matrix. These elements are then tested after all the matrix 
input has been made to determine what matrix defaults are needed. 

The R matrix is inverted at card 2460, since R" 1 is the form needed by the rest 
of the program . 


From card 2530 on , the AA and BB matrices are being converted to logical 
variables and the number of the different types of unknown coefficients to be deter- 
mined is found. An element in AA or BB is set to false if that element in A or B is 
to be determined . This may be contrary to the expected convention . 
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APPENDIX A — Continued 


Subroutine listing: 


SUBROUTINE EDIT 


EO IT 

SETS (DEFAULT VALUES AND READS PROGRAM OPTIONS FROM CARDS EDIT 

EO I T 

COMMON /ALIOIM/ MAX.MIX EDIT 

COMMON /TOPLOT/ ZMAX ,ZMIN, DCMAX , OCM IN , TIMESC, NCPLOT EDIT 

COMMON /TOGIRL/JKM,JKMM, J KM M 1 , ERR MA X, Z ERO I N , X T5 .BOUND , APR, M FDIT 

, VAR, ZERO, APRO, JKV, DIAG EDIT 

COMMON /MATRIX/ A , B , AA , 0 9 , A P , 9 P , D 1 , R EDIT 

COMMON /COM/ NCASE,MZ, NPTS,NPTT,SPS, PRINT, LONG, LATR, PLOTEM,NDl, EOIT 
01T0L,DiRLX,NA°R, WF AC, WMAFR,ERRSUM, LAST, RATIO EDIT 

COMMON /INFO/ HH, NOI TE R , MX , M XP 1 ,M U , TE ST , X 8N , 7 8 X, I PQR , I XYZ , XT 1, MZM,EOIT 
- C0RECT,BIASKN,PLTHAX,XT4, ERR VEC, P UNC HO , N E A T EDIT 

COMMON /HEADNG/ L A BE LS ,T IT LE , J l LI A N EDIT 

COMMON /TOGA T A / S , SPAN , X 8, Z 8 , X A Y, CA RD , ZA Y , A PR A , APR8 , DC , EOIT 

XALF, THIN, TAPE, C8AR, AP8P, ETC, ETC, FIXED, AR,BR,XAN,ZAX, EOIT 

SCALE, NREC, ORDER, METRIC, IX, IY, IZ, IXZ,0,V,GROSWT EDIT 

COMMON /ROUTH/ PUNCH , PARA M , MA CH, AL PH A ,CG, AC, B C EOIT 

INTEGER STC(15),ETC(15),THIN,ST<4),ET<4), EOIT 

LABELS(15) ,LONL AS (15) ,LATLAR(15) , CRDER(15> EDIT 

LOGICAL CARO, TAPE, CORECT, METRIC, APBP, PUNCH, ZEROIN, PUNCHD, EDIT 

LAA(5,4> ,L38(5,a> , LONG, LATR, V AR ( 3 ) , ZERO ( 4 > , L A ST , EOIT 

81 ASKN,PLOTEM, TEST, PRINT, eOTH, DIAG, INCH EDIT 

REAL IX,IY,IZ,IXZ,MACH,MATRX(8,8) ,JULIAN,AC(5,4),8C(5,8),LA9 (12) EOIT 
DIMENSION A(5,4),B<5»8),TITLE<20),OCMAX(8),DCMIN(8),XT4(3), EOIT 

AA (5,4) ,BE (5,8) , A P ( 4 , 4 ) ,BP(4*8),NPTS (15) ,01 (0,7) , APRD (35), EOIT 
ZM IN( 7) ,ZMAX(7) ,ERRVEC(20) , OC ( 4 ) ,APR(35,35> , EOIT 
X T 5 ( 35) , AR (5 ,4) , BR ( 5 , 8 ) , APRA ( 5 , 4 ) ,APRB (5 , 8 ) , A8C ( 12 ) , F IX EO ( 7) , ED I T 
APRLON (5, 4 ) , APRLA T (5,4 ) ,8PRL0N (5,8 ) , BPRLAT(5, 8) , TLAT(3) , EDIT 
TLON (3) , TYPE (3) ,SCALE(7) ,R(5,4) , XT3(4) ,AALAT (5,4) ,AALON (5,4) ,EOIT 
8BLA T (5 ,8 ) ,BBLON(5,8) ,D1L0N (5) ,D1LAT(5) EDIT 

EQUIVALENCE ( A A (1 , 1 ) ,L AA (1 , 1 > ) , (80 ( 1 , 1 ), L9Q < 1 , 1 > > EOIT 

DATA LONL AB/4HALFA ,1H0,1HV, 4HTHET , 2HAN ,4H QDOT ,2HAX , 2H0E,2 HOC , EOIT 

3H0C1 , 3 HDC2 ,3 HP HI , 3 HAL T ,4HMACH , 4HQ8AR/ , L ATL AB/ 4HBET A, 1HP, EOIT 
I HR, 3 HPH 1 ,2H AY, 4H PO OT , 4HR 00T , 2 HD A , 2H DR , 3 H DC 1 , 3H DC 2 , 4H AL F A EDIT 

, 1HV,4HMACH,4HQRAR/,LA8/1FA, 1H9, 2 HA A , 2 HR 8 , 2 HA R , 2 H8R , 4 HA PR A , EO I T 
4HAPRB,2HD1,2HAP, 2H BP , 1 HR / , S UM L/ 3 MS UM / , TL AT/ 4HL A T E, 3HRA L , EOIT 


1H /,TL0N/4HL0NG, 4HITU0,4HINAL/, AALAT/3*1. ,0. , 4 , , 3* 1 • ,0 . , 4 . , EO IT 
Q* 1 1 . ,1. , 7*O,/,B0LAT/3*1, ,0. , 4. , 3*1. ,0 . , 6. , 10*C . , 4*1 . ,1 6*G ,/,EOIT 
AA LON/1, «1«,0.,0. ,4.,0.,1.,0«,0. ,4*, 10*0 ,/ ,BBLON/l. ,1.,Q.,0.,EDIT 
4, , 4 *0 , ,8. ,10*0. , 1. ,1. , 3 « ,1, ,16*0 ./,D1 LON/3G 0 C 0 . , 20 DO CO , , 0 ., EOIT 


100COQ. ,2000 ./, APRLON/13COC»»15, ,2*0 ♦ , 4 . , 0 , , 8 CO, ,2*0,, 4, , EDIT 
10*0./, APRLA T/l 30 00 . , , 15, 15, ,0 . , 4., 13000 • ,500. , 80C, ,0 ., 4, , EOIT 
13 00 0 ., 5 . , 800 ., 7* 0 . /,9PRL AT/ 13 000 .,, 15,15. ,0 , ,4 . , 1300 C. ,.15, EDIT 
15, , 0 ,, 8 ., 1 3000 ., .15 , 15., 2*0 , , 130 00., . 15, 15., 22*0 ./, EOIT 

8PRL0N/ 13000. ,15. ,2*0 .,4. ,13000* , 15. ,2*0 . ,8. ,13 0 00. ,15. ,3*0, ,EOIT 
13000. ,15., 23*0. /,01LAT/5QQOQO., 1 50 0. ,1000000, ,30000. ,5J0C./ EOIT 
NAMELIST /INPUT/ GR OS W T , Q , S , S P A N ,C 3A R , V , I X , I Y , I Z , IXZ , PUNC HO , EDIT 

xo,zr,xay,zay,xalf,xan,zax,hmapr,pltmax,neat, EOIT 

CG, MACH, ALPHA, PAR AM ,SPS,NCASE, NO ITER , T ES T , PLOTEM , TIME SC , EO IT 

PUNCH,THIN,LONG,L ATR, WFAC,ND1, CARO, TAPE, SOUND, ERR MA X , EDIT 

METR IC, PR I NT ,NAPR , 0 1RL X, D IT OL , FI XED, V AR , OC , INCH , EOIT 

ZERO, SCALE ,7MIN,ZMAX,DCMIN,0CMAX ,NREC,ORDER,0OTH,NCPLOT EOIT 

JUL IAN=DAT£ (JULIAN) j r 

APR (35 ,3) =SUML EDIT 

REAQ (1,2000) TITLE EOIT 

WRITE (3, ?005)T!TLE, JULIAN EDIT 


0 

1C 
20 
30 
40 
50 
60 
70 
30 
90 
100 
11 0 
120 
13C 
140 
150 
160 
170 
180 
190 
20 0 
210 
2 20 
230 
240 
250 
260 
27 0 

2 8 C 
290 
300 
310 

3 2 0 
330 
340 
350 
360 
370 
390 
390 
400 
410 
420 
430 
440 
45 0 
460 
470 
480 
490 
500 
510 
520 
530 
540 
55 C 
560 
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APPENDIX A — Continued 


NCPL0T=8 
V = C . 

Q = Q . 

MACH=Q. 

PUNCH0=. FALSE . 

NE A T = 0 
NREO = 15 
METRIC=. FALSE. 
B0TH= .FALSE. 

HO 14 1=1*15 
14 OROER ( I > = I 
DO 10 1 = 1*8 
OCMIN tl > = 0 . 

10 OCMAX (I) = 0 . 

DO 13 1=1,12 
13 ARC ( I > = L A 0 ( I ) 
CORECT= .FALSE . 
CARD= .FALSE. 

T APE= • TRUE . 
7ER0IN= .FALSE. 
BIASKN= .FALSE . 
PlOTEM=. TRUE. 
TEST= .FALSE . 
LONG=. FALSE. 

latr=. false. 

DIAG=. TRUE. 
PLTMAX=1 » E Q 5 
FRRM A X= 1 • E +20 
PUNCH = • FALSE. 

° AR A M = 0 • 

CG = .25 
xb=o . 

Z B= 0 . 

X AY = 0 . 

Z A Y = 0 . 

T HIN = 1 
D1C9* 1) =5. 

01 (ft » 2) =5. 

MAX-8 

CALL AZOT(Dl) 

M A X = 5 
M IX=5 
R ( 5, i> =4. 

R (5 * 2 ) = 4. 

R ( 5 . 3 1 = ABC (1 2 ) 
CALL AZOTIR) 

DO 136 1=1*4 
R (I ,1 > = 1. 
zero ( n = . FALSE . 
13 6 DC (I ) = 0 . 

X A LF= 0 • 

ALPH A=999. 
PRINT=. FALSE. 

DO 137 1=1*7 
Z MI N ( I ) =0 . 

Z M AX ( I)=0 . 


DEFAULTS 


EDIT 570 
EDIT 580 
EOIT 590 
EDIT 600 
EOIT 610 
EOIT 620 
EOIT 630 
EDIT 640 
EDIT 650 
EOIT 660 
EDIT 670 
EDIT 680 
EOIT 690 
EDIT 700 
EOIT 710 
EDIT 720 
EOIT 730 
EDIT 7 40 
EDIT 750 
EDIT 760 
EDIT 773 
EOIT 7 B0 
EOIT 790 
EDIT 8 0 C 
EOIT 810 
EDIT 820 
EDIT 830 
EDIT 843 
EDIT 850 
EOIT 860 
EDIT 870 
EDIT 8 3 G 
EDIT 890 
EDIT 900 
EOIT 910 
EDIT 920 
EOIT 930 
EOIT 940 
EOIT 950 
EOIT 96C 
EOIT 970 
EDIT 980 
EDIT 990 
EDIT100G 
ED I Tl 0 1 0 
EOIT102Q 
EO I Tl 0 30 
ED I T 1 0 40 
€D I T 1 0 5 0 
EO IT1Q60 
ED I T 10 70 
EDIT109G 
EDIT109C 
EO IT1100 
ED I Tl 110 
EO I T 1120 
EO IT113G 
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APPENDIX A — Continued 


FIXED ( I ) = 0 • 

13 7 SCALE 111*1. 

X AN=3 . 

2AX = Q . 

8 0 UND= • 0 0 1 
SPS = 0 . 

WMAPR=0 . 

N OITE R=6 
NCASE=1 
NI = 35 
TIMESC=1. 

00 11 1=1,3 
V AR ( I > = » TRUE • 

11 T YPE 1 1 ) = TL AT 1 1 1 
S=. OC 1 
SPAN=.Q01 
CBAR=*0C1 
GROSWT = 1 . E *0 9 

I Y=l.E+09 
IX=i.£*09 
IZ=1 .E + gq 
1X7=0 , 

NO 1=0 
N A PR = 0 
W F A C= 13 0 . 

01RLX=1 .2 
01 TOL =1 .4 
INCH*. FALSE. 

RATIO=. 78 74 

READ PROGRAM OPTIONS 

READ Cl, INPUT) 

IF(INCH) RATI 0 = 1. 

I F CNOITER * EQ. 0 ) F U NC H= .FALSE* 

IFCNOITER .EO.O ) PUNCHO =. FALSE. 

PLTMflX=AHINl(PLTMAX,ERRMAX) 

IF(CARD) TAPE=. FALSE. 

A THIN = THI N 

IF(S p S.NE.O. ) HHsATHTN/SPS 
IF (BOTH) NREC=25 
IF (LONG) GO TO 5 
DO 2 1=1,15 
2 LABELSC I) =LATLA8 ( I ) 

GO TO 8 

5 00 6 1*1,15 

6 LABELS (I) =LONLAQ (I ) 

DO 12 1*1,3 

12 T YPE< I) =TLON( I) 

8 CONTINUE 

ZEROIN = ZERO ( 1 ) .OR. ZERO ( 2 ) .OR. ZERO (3) .OR. ZER0C4) 

BIASKN = VAR(l) .OR.VAR (2) ,OR.VAP(3) 

WRITE C3, 200 9) TYPE ,CAR0 , T A PE , SPS, T HI N, NREC , 8 OTH 
WRITE (3, 2010) WMAPR t N EA T, NO T TER, ROUND, ERRMAX 
IF(NOl.NE.O) WRITEC3 ,2006)NC1, C1RLX ,01T0L 
I F (NAPR.NE. 0 ) WRITEC 3, 20 3 8) NAPF, WMAPR, WFAC 

WRITE (3, 201DPLOTEH, PL TM AX , NC P LOT , T IMESC , PRINT , TEST , PUNCH , R) NCHO 
WRITE (3,2012) METRIC, 0, V , M ACH , A LPH A , CG, P ARAM, S , SPAN ,CO AR, IX, I Y,IZ, 

ixz,groswt,xalf,xan, xq, xay,zb,za y 


EO IT1140 
EOIT1150 
E0IT116Q 
EO I T 1 1 70 
EOIT1180 
EOIT1190 
EOIT1200 
EO I T 1210 
EOIT1220 
EO IT1230 
EO I T 1240 
EDIT1253 
EO IT 1260 
EO I T 1 2 70 
EDIT1280 
EO I T 1290 
EOIT13JO 
ED I T 1 3 1 0 
EO I Tl 320 
ED IT1 330 
EO I T 1340 
EO IT1350 
EO I T 1 360 
ED I Tl 370 
EO IT1380 
ED I Tl 390 
E0IT1431 
EO I T 14 1 0 
ED I T 14 2 0 
EOIT1430 
EO I T 1 4 40 
EDIT1450 
EO IT1460 
EO I T 1470 
ED I Tl 480 
ED I T 1 4 90 
ED I T 15 0 0 
EO IT1510 
EO I Tl 520 
EDIT1530 
EO IT1540 
EOIT1550 
EO IT1560 
EO I T 1 5 70 
ED IT 15 80 
EO I T 1590 
ED I Tl 6 J 3 
EO IT1610 
EDIT1620 
ED IT1630 
ED I T 1 6 40 
EOIT1650 
EO IT1660 
E0IT167C 
EOUT1&80 
EOIT1690 
EO I T 1 7j 0 
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WRITE (3 , 2013) LABFLS,VA 
IF(PLOTEM) WRITE<3,200 
S PS= SPS/ATHIN 
DO 100 1 = 1 , NCASE 
REAO (1,1000 ) S T , ET 
S TC < I)=ST<4) +100G*tST( 
ETCtn-ET (4) ♦ 1 0 0C * (E T ( 

100 WRITE (3, 2002) I, ST, ET 

WRITE (3,2003) TITLE 
WRITE (3,2004) 

M AX= 8 

101 CALL MATLD(MATRX,ABC,I 
IF(IABStlLO) .EC. 999) G 
IF(IL0.EQ*9) oiag=.fal 
IF tlLO, EQ.l) call HA K ( 
IF(ILD.EQ,2) CALL HA K( 
I F( IL D, EQ ,3) CALL MA<( 
IFtlLO. EQ,4) CALL HA K ( 
IF(IL0,EQ,5) CALL HA K ( 
I F ( ILO, EQ *6) CALL MAK( 
IF ( I L O • EQ • 7 ) CALL MAK( 
I F( ILO, EQ • 8) CALL H AK ( 
IF (IABS(ILO) • EQ *9 ) CAL 
IFtlLO. EQ. 10) CALL MAK 
IFtlLO. EQ, ID CALL MAK 
IFtlLD.EQ.12) CALL H AK 
GO TO 101 

108 M AX = 5 

MZ=D 1 (8,1) 

APBP = .FALSE. 

IF ( AOCt 10 ) .EQ. -99999. 

I F (LATR.OR. LONG) GO TO 
IF (A (1, 2) .GT . .5) GO T 
LATR=.TRUE, 

GO TO 117 

113 LONG-. TRUE. 

OO 114 1=1,12 

114 LABELS (I)=LONLAB( I) 
WRITE (3, 2007) 

117 IFtlLO. EQ. -999) L AST = • 
IF ( AR C ( 5 ) .NE. -99999. ) 
IF ( A BC ( 6) .NE. -99999. > 

I F (LONG ) GO TO 121 
IF ( A3 C ( 9 ) .EQ. -99999. ) 
DO 118 1=1,5 

118 OKI, I ) =0 1 L AT tl) 

119 IF (ABC (7) .NE. -99999. ) 
IFtABCt 8) . NE. -99999. ) 
IF ( ABC ( 3 ) .NE. -99999. ) 
IF (ABC t 4 > .NE. -99999. ) 
IFtXB.NE.O. .CF.ZB.NE. 
IF(ABC(12).E0. -99999.) 
R (2,3) = -IXZ/IX 

R (3 ,2 > = -lXZ/IZ 
IF ( TEST ) CALL ASPIT(R) 
123 IF ( .NOT. BOTH) GO TO 12 


R, ZERO, FIXED, OC , SCALE 
1) ZMIN,OCMIN, ZMA ), OCMAX 


3) *60 *ST(2) 4-360 0*ST< 1 ) I 
3>+60*ET (2) +360 0*ET f 1 )) 


• REAC MATRICES 

.JULIAN 


LO) 

0 TO 
SE. 

A , 
B , 
AA , 
BB , 
AR , 
0R , 
APRA , 
APRB, 
L MAK 
( AP 
(BP 
(R, MA 


108 

MAT RX, 5) 

MAT RX, 5) 

MAT RX , 5) 
MATRX, 5) 

M AT RX, 5 ) 

MAT RX, 5) 
MATRX, 5) 

MAT FX , 5 ) 

(01 , MATRX, 8) 
,MA TRX ,4) 

, MATRX , 4 ) 
TRX, 5) 


.AND. ABC til) . EQ. -99999. ) APBP = .TRUE. 

117 
0 113 


TRUE. 

CALL AMAKE(AR,A> 
CALL Am AK£ ( BR ,B ) 


GO TO 119 


CALL AMAKEt APRA , APRLAT) 

CALL AMAKEtAPRO, BPRLAT) 

CALL AMAKEt AA,AALAT) 

CALL AMAKEt 06, BeLAT) 

0. .OR.XAY.NE.C. .OR.ZAY.NE. 0. )CORECT= 
GO TO 123 


EO IT1710 
ED I T 1720 
EDIT1730 
ED I T 1740 
EO I Tl 750 
ED I T 1 760 
EOIT1770 
EOIT1730 
EO IT 1 790 
ED I Tl 8 0 0 
EOIT1810 
EO I T 1 82 0 
EDIT1830 
EO I Tl 8 40 
EDIT1850 
EO I Tl 960 
EO IT1870 
EOIT1880 
ED I T 1 8 90 
EOIT1900 
EOIT1910 
EOIT1920 
EO I T 1930 
EOIT1940 
EO IT 1950 
EDI T 1960 
EO I T 1 970 
EO I T 1 98 0 
EO I T 1990 
EO IT 2 0 0 0 
EOIT2Q10 
EOIT20 2Q 
EOIT20 30 
EDIT2040 
EOIT2050 
EOIT2060 
E0IT207D 
EOIT2080 
EOIT2090 
EO IT213 0 
EDI T2 110 
EOIT2120 
EOIT2130 
EOIT2140 
EDIT2150 
EDIT2160 
EO IT2170 
EOIT2180 
EDIT2190 
EOIT2200 
EOIT2210 
1 • T RUE .ED IT222G 
EDIT2230 
EOIT2240 
EOIT2250 
EOIT2260 
EOIT2270 
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7 


9 


121 


12 4 

** * * 


122 


150 


106 
10 7 
110 

111 

112 

120 

125 

126 


1000 
200 0 
200 1 
2002 
200 3 
200 4 


00 7 1=1*3 
ORDE R ( I >= IU5 
ORDER ( 4> = 12 

00 9 1=5,11 
ORDER (I> = H-i4 
ORDER ( 12) =1 
ORDER (11) =3 
GO TO 122 

IF < Af3 C ( 7 ) .NE. -99999. ) 

IF { ABC ( 8 ) .NE. -99999. ) 

IF (ABC (3) .NE. -99999, ) 

IF<A8C(4) .NE. -99999. > 

IF (XALF , NE • 0 . .OR. XAN.NE.0. 
IF(ADC(9) .E0.-99999. ) GO TO 122 
DO 124 1=1*5 

01 (I,n=QlLON( I) 


CALL INV(R,MAX> 

MX= A< MAX, 2 > 

MU=9(MAX, 2) 

M XP1 = MX +1 
M7M=MZ-MX 
DO 150 1= MXP1 * KZ 
I F( D1 <1*11 *60.0.1 VAR< I -MX) =. FALSE. 
J KMM 1 = 0 
DO 120 1=1, MX 

00 110 J= 1 * MX 
I F ( AA (I t J ) ) 10 7,106* 10 7 
L AA (I * J >= .TRUE. 

GO TO 110 
LAA (I ,J) = . FALSE. 

J KMM1 = J KMMi *1 
CONTINUE 
DO 120 J = 1 ,MU 

1 F ( BB ( I » J ) > 112,111,112 
L BB ( 1 * J ) = . TRUE • 

GO TO 120 
LBB(I,J>=. FALSE. 

JKMM1 = JKMM1 
CONTINUE 
JKMM= JKMM 1 
OO 125 1=1, MX 
IF(ZEROCI)) JKMM1=JKMM1+1 
J KV = J KMH1 
DO 126 1=1, MZM 
IF (VAR (1)1 J<MM1= JKMM1 ♦! 

JKM= J KM Ml *1 
APR ( 35* 1 ) = JKMM1 
APR (35, 2) = JKM 
RETURN 

F0RMAT(2(3I2,I3,1X)) 

FORMA T ( 20 A4) 

FORMAT ( 13H 

FORMAT ( /I 0 HO MANEUVER, 14, 12H 
FORMAT (1H1,26X,20A4,13X,A10) 

F ORM A T ( / 1 8 HO INPUT MATRICES i> 


EDIT228Q 
EO IT2290 
EDIT2300 
EDIT2310 
EOIT2320 
ED I T 2 1 30 
ED I T 2 340 
EDIT2350 
ED IT2360 
ED I T 2 3 7 0 
EDIT238C 
EDIT2390 

CORECT=. TRUE. EDIT2400 

EDI T2410 
EO IT2420 
EOIT2430 

COMPUTE SIZE OF SYSTEM EDIT2440 

AA AND BB TO LOGICAL VARIABLES EDIT2450 

EDIT2460 
EOIT2470 
EDIT2480 
EDIT2490 
EOIT25C3 
EDIT2510 
EDI T252Q 
EOIT2530 
EOIT254D 
EO IT2550 
ED IT2560 
EDIT2570 
EO I T 2580 
EDIT2590 
EDIT26D0 
E0IT2610 
EOIT2620 
EDIT2630 
EOIT2640 
ED IT2650 
EO I T 2660 
EDIT2670 
EO IT2680 
EDIT2690 
EDIT2700 
EOIT2710 
EOIT2720 
EDIT2730 
EDIT2740 
ED IT2750 
EOIT2760 
EOIT2770 
EOIT2780 
EOIT2790 
EOIT28QO 
£01 T 28 10 
EOIT2820 
EOIT2830 
EDIT28 40 


CALL AMA KE( APRA , APRLONJ 
CALL AMAKE ( APR0 ,BPRLONI 
CALL AMAKE ( AA *A ALON) 
CALL AMAKE ( BB ,B8LON ) 

OR. ZAX.hE.O.) 


PLOT LIM ITS/5X , 7 HM INI MUM, 1 5F6 . 2 /5 X , 7HHAX I MUM ,1 5F 8 . 2) 
START TIME, 415, 11H STOP TIME, 4151 
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20 0 5 FORMAT < 1 Hi, 20 X, 20 A4, 10 X* Al)/ 40 X , 1 4H NE W TON -R APHSON , 

28H DIGITAL DERIVATIVE MA TCH I NG/ 60 X, 10 HI APR 1974) 

200 6 FORMAT (28 H0O1 HILL 3E DETERMINED USING, 13, 

-28H PASSES. PE L AX ATI ON FACTOR =,F5.2,13H TOLERANCE =,F5.2> 

200 7 FORMAT ( 46 H THE A MATRIX INDICATES CASE IS LONGITUDINAL. 

-57HLA9ELS ABOVE ARE WRONG. APPROPRIATE CORRECTIONS NOW MADE.) 

2000 FORMAT (23HQWMAPR WILL 9E RUN WITH,I3,25H VALUES. FIRST 0.* THEN 
E9.2.27H. THEREAFTER MULTIPLYING 8Y.E9.2) 

200 9 FORMA T { 50 HO INFUT DATA (T INDICATES TRUE OR YES, F INDICATES , 
12HFALSE OR NO) /1H0 t 4X .3A4.5H CASE/16H OATA SOURCE. 

10 H CARO? ,L1. 8X.6HTAPE? ,L 1/ 5X , 12HOA T A RATE IS.F5.0, 

57H SAMPLES/SECONO ON SOURCE FILE <IF 0, DETERMINED FROM TIM 
22 HE S ON THE SOURCE FI IE) /I OX, 26HDIVI DED BY THINNING FACTOR, 
3H OF ,I3/5X, 14H0N INPUT TAPEI,I4, 

56 H DATA WCPOS PER RECORD. SPECIAL SIGNAL ORDER DEFAULT? , 
LI) 

2010 FORMA T(/16H0PROGPAM 0PTI0NS/24H0 APRIORI WEIGHTING = ,EB.2» 

13X, 13. 22H TIME HALVINGS IN EAT./ 

5X,1?H ITERATIONS =,I3,32H (ITERATION HILL STOP IF ERROR . 
36HSUM CHANGES RY LESS THAN A FACTOR OF,E9.2,lH)/5X, 

49HCASE WILL BE STOPPEC IF ERROR SUM IS GREATER THAN , E9 • 2 ) 
2311 FORMAT ( / 7HQOU TPUT/12 HO PLOTS? ,L1,25H (NO PLOTS UNLESS FINAL 
22HERR0R SUM IS LESS T H AN, E9 . 3 , 1 H } /1C X , 

52 HNUNBER OF CONTROLS AND EXTRA SIGNALS TO BE PLOTTED =.13/ 
10X, 24HSECCN0S PER CENTIMETER =,F5.2/5X, 

50HPRINTEO FLIGHT ANO FINAL COMPUTED TIME HISTORIES? ,L1/5X, 
57HEXTRA OUTPUT OF INTERMEDIATE STEPS FOR A DIAGNOSTIC AID? 
L1/5X.51HPUNCHE0 FINAL NON-DIMENSIONAL DERIVATIVES AND CONFT 
14H0ENCE LEVELS? ,L1 / 5X.26HPUNCHE C FINAL DIMENSIONAL , 
1CHMATRICES? ,L 1) 

2012 FORMAT (/54H0FL IGHT CONDITION ANO VEHICLE C MAC TERI STICS (0. INOICA 
55HTES VALUE OBTAINED FROM TIME HISTORY CN QB AR , V OR MACH), 
/44X ,49H (MACH, ALPHA, CG AND PARAM ARE FOR REFERENCE ONLY, , 
20HNOT USED IN PR OGR A M ) /5 X , 1 4H ME TR IC UNITS? ,L1/5X, 
18HDYNAMIC PRESSURE = , F 1 1 . 1 , 6X , 1 0 HVELOCI T Y =,F7.1/5X, 

6HMACH = ,F6. 3,23X .7HALPHA =,F7.2,22H (IF 999. , OBTAINED , 

18HFROM TIME HIST CRY) /5X, 19HCENTER OF GRAVITY =,F6.3,10X, 
29HOTHER IDENTIFYING PARAMETER = , E1Q . 3/5X , 11 HW I NG AREA =, 
F7,1*17X ,6 MS PAN = ,F7 . 2 ,5 X ,7HCHORO = , F6 . 2 /5X, 4 HI X =,F9.1,22X, 
4HIY =,F1Q ,1 , 4X,4HIZ =, FI 0 . 1 , 4X, 5HIXZ =,F8.1/5X, 8HWEIGHT =, 
F9. 1/5X,26HINSTRUMENT OFFSETS FROM CG/ 

10X, 53HX-OIRECT ION OFFSETS (+ = INSTRUMENT IS FORWARD OF CG) 
14X, 5HALPHA,F8. 3, 4H A N , F 8 , 3/ 1 4X , 4HBE T A , F 9 . 3 , 4H AY,F8.3/ 

1QX ,49H7-DIRECTI0N OFFSETS ( + = INSTRUMENT IS BELOW CG » / 
14X, 4HBETA,F9. 3.4H AY,F8.31 

2 J 1 3 FORMAT(26H0SIGML SCALING ANO PI ASES/9H SIGNALS, 7X,i*.A8,A 4/ 

10H VAR eiAS ,32X ,3 <7X ,L1 >/l 1H VAR I.C. , 6X , LI , 3 (7X , LI ) / 

1 2 H FIXED BIAS.l 1F8. 2/12H SCALE FACT,7F8.2) 

ENO 


EDIT2853 
E0IT286Q 
EOIT2870 
EOIT2880 
EO IT2890 
E0IT293D 
, EO IT291Q 
EDI T2 920 
EDIT2930 
E0IT294Q 
EOIT2950 
»EO IT296D 
EDIT2970 
EOIT298Q 
ED IT2990 
EO IT 30 3 0 
ED I T 30 10 
ED IT3020 
EDI T 3 0 3D 
EO I T 3 0 40 
EO I T 3 0 50 
, EO I T 3060 
EO IT3370 
ED I T 30 80 
EO IT 3090 
E3IT3100 
,EO IT3110 
,EOIT3120 
EO I T 3 1 30 
EO IT3140 
»EO IT 3 1 50 
E0IT3160 
EDIT3170 
EDIT3180 
EDIT3190 
EO IT3230 
ED I T 3 210 
EDIT3220 
ED IT323Q 
EO I T 3 2 40 
EOIT3250 
/ED IT3260 
EOIT3270 
EDIT3280 
EO IT3290 
EDIT33U0 
ED IT3310 
EO I T 3 3 20 
EDIT3330 
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APPENDIX A — Continued 
SUBROUTINE DATA 


Description: Subroutine DATA reads the input time histories, performs any 
scaling and biasing required , and completes the program initialization . Averages 
of several time histories are obtained for use as default values for input parameters 
not set. 

Programing notes: Comment cards separate major subroutine sections. If this 
is an intermediate step in the D1 determination or the q priori variation option, most 
of the subroutine is skipped since those sections were executed in the first step; 
this is true when the formal parameter IN is false. 

Important variables — 

X vector containing one time point of the input time histories in degrees. 

Z, DCR vectors containing the input observations and controls in radians. 

C — matrix containing factors for nondimensionalizing derivatives. 

APR - matrix containing any off-diagonal a priori weightings. These weightings 
would be stored in the upper triangular portion of APR. There are no terms inserted 
here, but if such terms are desired, they may be inserted and the rest of the pro- 
gram will treat them properly . This matrix is referred to elsewhere in the program 
as SUM, and the lower triangular portion and the diagonal will be used to store 
other information . 

APRD - vector containing the diagonal a priori weightings. 
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Subroutine listing: 


SUBROUTINE OATACIN) 

READS TIME HISTORIES, EE R FORMS VARIOUS INITIALIZATION 
COMMON /ALLDIM/ MAX, MI X 

COMMON /COM/ NCASE,MZ, NPTS,NPTT,SPS, PRINT, LONG, LATR, PLOTEM,NDl, 

D1TOL,01RLX, NAPR, HF AC, WM APR, ERRSUM, LAST, RATIO 
COMMON /MATRIX/ A , B, A A , G9 , A P f B P , 0 1 , RI 

COMMON /TOGIRL/ JKM, JKHM, JKMM1 , ERRMAX, ZEROIN, XT 5, BOUND , APR, NI 
,BIASK,ZERO, APRO, JKV,OIAG 

COMMON /INFO/ HH,NOITER,MX , MXP1,MU, TEST,XBN,Zex, IPQR, IXVZ,XT3,MZM 

CORECT,B IASKN,PLTMAX,XT4, ERRVEC, PUNCHD, NEAT 
COMMON /DIMENS/ C , E, HQ S, TH E T N 
COMMON /HE ADNG / LABELS , TIT LE , JULI AN 

COMMON /TOOAT A / S* SP AN , X 8 , Z8 , X A Y, C A RO , Z AY , APR A , APRB , OC BI AS , 

- XALF, THIN, TAPE* CBAR,AP8P*STC» ETC, BIAS, AR,BR,X AN, ZAX, 

- SCALE, N RE C,OROER, METRIC,AIX,AIY,AIZ,AIXZ,Q»V,GROSWT 
COMMON /ROUTH/ PUNCH , P A R A M , MA C H, AL PH A ,CG , AC , 8C 

DIMENSION A (5,4) ,0(5 ,8 ), TITLE (20) ,X T4 ( 3) , APRO < 35) ,RECORD(10Q ), 

- AA (5,4) ,88(5,8) ,X (15) , Z (7) »E (3,8) , AP ( 4, 4 ) ,QP (4 , 8 ) , 

EXTRA (4) , OCR(8 ) , NPTS ( 15) ,D1 ( 8 ,7) ,OC (4) , 

C ( 3 , 8) ,ERRVEC(20 ),APR(35 ,35 ) ,XT3 (4) ,RI(5,4) , 

XT5 ( 35) , AR (5,4) ,BR(5,8),APRA(5,4>»AP«B(5»8),AC<5*4)tBC(5,8) 

INTEGER T (4) ,ORDER(15) *THIN,STC(15) ,ETC(15) 

REAL OCBI AS (4 ) , CA LIB (7 ) , 31 AS (7 ) , LABELS (15 ) , MACH, SCALE (7) 

LOGICAL CORECT, METRIC, C ARO ♦ PLOTEM , APB P , AA , BB , T APE , L AS T ,0 1 AG, 

B I ASKN, ZEROIN, TEST, LONG, LATR, PRINT, IN, BI ASK M) ,ZER0<4) , 
PUNCHOtPRNT 

EQUI VALENCE(X(8) , DC ( 1) ) , < X < 12) ,EXTR At 1 ) ) 

OATA STAR/1H*/ , BLANK/1 H / 

PRNT = PR I NT .OR • (NO ITER. EQ . 0> 

G=32. 172 

IF(METRIC) G=9. 80665 
RA0=5 7.2958 
L INE = 50 
00 5 1=1,3 
5 XT4 ( I ) = 0 • 

00 10 1=1,7 
CALI8(II=1./RAC 
10 Z(I)=0. 

C ALI3 ( 5) =1 • 

DO 22 1=4,8 
20 OCR ( I ) *0 • 

I F ( .NOT .LONG) GO TO 50 
XT4 ( 1 ) =1 • 

CALIB (3 ) =1. 

CALIB<7 )=1. 

,, * * j, .* *** amm, ****♦¥******* * * RE A 0 INPUT TIME HISTORY 

I F ( ♦ NOT .IN) GO TO 50 5 
IF(PRNT) HRITE ( 3,200 1) 

N PT T = 0 
AMACH^O . 

ALF A=3. 

A V = 0 . 

A Q8AR = Q . 

PHI=0 , 


OATA 

0 

OATA 

10 

OATA 

20 

OATA 

30 

DATA 

40 

DATA 

50 

OATA 

60 

OATA 

70 

DA TA 

80 

OATA 

90 

, OA T A 

100 

OATA 

110 

DATA 

120 

OATA 

130 

OATA 

140 

DATA 

150 

OATA 

160 

OATA 

170 

DATA 

180 

OATA 

190 

OATA 

20 0 

OATA 

210 

DA TA 

220 

OATA 

230 

OATA 

240 

OA TA 

250 

OATA 

260 

OATA 

270 

DATA 

280 

OATA 

290 

OATA 

300 

OATA 

310 

DATA 

320 

DATA 

330 

OATA 

3 40 

OATA 

350 

DATA 

360 

OATA 

370 

OATA 

380 

OATA 

390 

DATA 

40 0 

DATA 

410 

OATA 

420 

OATA 

430 

OATA 

440 

DATA 

450 
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THETA=0 . 

V EL = V 

DO 500 111=1* NCASE 
ISTMS=STC( 111) 

I ETMS=ET C < 111 ) 

ITHIN=THIN-1 
NPTS( 111) =0 

IF( 111. LE. 4) OCR (111 +41=1* 

260 IF (TAPE) GO TC 240 
READ U,1001) T,X 
GO TO 250 

240 RE AO (4) T, (RECORO(I) , 1=1, NR EC) 

250 IF( <T(4) +1000* < T ( 3 ) ♦ 60 *T < 2 > *360 0* T ( 1) ) ).LT.ISTMS> GO TO 26C 
I T ST= T ( 4 ) 

IF(. NOT. TAPE) GO TO 30 0 
DO 270 1=1,15 
270 X (I)=RECORO(ORCER(I) ) 

30 0 I TM = T ( 4 ) ♦1000*(T(3) + 60*T(2)«-3 600*T(1)) 

IF(ITH.GT.IETMS) GO TO 430 
ITHIN=ITHIN+1 

IF(MOO( ITHIN.THIN) .NE. G) GO TO 385 
NPTS(IH) = NPTS (111) + 1 
IFfNPTS (1) .NE. 2. OR, SPS.NE.0.) GO TO 309 
I=T(4> -ITST 
IF(I.LT.O) 1=1*1000 
HH= ( (I *2 ) / 5 ) * 5 
HH = HH/1 0 0 0 . 

S PS = 1 * / HH 

**♦***♦•***•**. ADO QjftSES AND SCALE FACTORS 

309 OO 310 1=1,4 

□cm*oc( moceiAsm 

310 OCR ( I)= DC (I)/RAO 
OO 315 1 = 1, MZ 

315 X (I)=X(I)*SCALE <I)+BIAS(I> 

AMACH=AMACH*EXTRA (3) 

AQBAR=AQBAR*EXTRA (4) 

IF (LONG) GO TO 350 
I F ( • NOT » CORE C T ) GO TO 340 
I F ( V.EQ.O.) V EL= EXTRA (2) 

X(1)=X(1)-CX8*X(3)-Z9*X(2))/VFL 
340 ALFA= ALFA+EXTRA (1) 

A V= A V *E X TRA (2 ) 

GO TO 360 

350 IF( . NOT .CORECT) GO TO 355 
I F ( V.EQ.O.) VEL= X (3 ) 

X ( 1 ) = X ( 1 1 *XALF*X(2)/VEL 
355 ALFA=ALFA*X(1) 

A V=AV*X (3 ) 

PHI=PHI *EXTRA (1) 

THE T A = T HE T A-f X (4) 

360 OO 365 1=1, MZ 
365 Z(I)=X(I) *CALie(I) 

I T IME=T <4)*1GOO*(T(3) + 1QO*T(2I*1QOCQM(1>> 

HRITE (7) ITIME,Z, OCR, EXTRA 
I F ( * NOT , PRNT ) GO TO 375 
I F { HOD (LINE, 50 ) .EQ.O ) 

-HRITE (3, 2003) TI TLE , JULI AN .GROSWT , AT X , A I 7 , AIXZ , A I Y ,Q , V, LABE LS 


DATA 570 
OATA 530 
DATA 590 
OATA 600 
DATA 610 
OATA 620 
OATA 630 
OATA 640 
DATA 650 
OATA 660 
OATA 670 
OATA 680 
DATA 690 
OATA 700 
OATA 710 
DATA 720 
OATA 730 
DATA 740 
OATA 750 
OATA 760 
OATA 770 
DATA 780 
OATA 790 
OATA 80 0 
OATA 810 
OATA 820 
OATA 830 
OATA 840 
OATA 850 
OATA 860 
OATA 870 
DATA 880 
OATA 893 
DATA 930 
OATA 910 
OATA 92G 
OATA 930 
DATA 940 
OATA 950 
10 A T 963 
DATA 970 
OATA 983 
OATA 990 
DATA1000 
OATA1010 
DA T A 1 0 20 
OATA1030 
QATA1040 
DATA1050 
O AT Al 0 60 
OATA1070 
OA T Al 9 80 
DA T Al 090 
DAT Al 100 
D AT Al 110 
OA TA1120 
OA T A 1 13 0 
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WRITEC3, 2010) T ,X 



DA T A 1 140 


LINE=LINE+1 



OATA1 150 

375 

IF( ITM.EQ. IETMS) GO TO 

430 


Q A T A 1 1 60 

385 

IF (CARD) GO TO 400 



DA TA1170 


READ (4) T i ( RECORD <1 ) « 

1=1 ,NREC ) 


DATA1180 


00 393 1*1,15 



OA T A 1 1 9 0 

390 

X C I) =REC0R0(0RCERm ) 



OATA1200 


GO TO 300 



OATA1210 

40 0 

READ (1,1001) T » X 



DATA1220 


GO TO 300 



OATA1230 

430 

IF(NPTS<I11) .GT.O > GO 

TO 435 


OA T A 12 40 


WRITE <3 ,2000 ) 111 



DAT A1250 


STOP 



DA T A 1 2 60 

435 

NPTT = NPTT*NPTS (111) 



OA TA1270 


WRITE <3,2 007) 111, NPTSI 111) 


DATA1280 

500 

CONTINUE 



DA TA1290 


ANPT=FLOAT(NPTT) 



OA T Al 30 0 


IF (MACH. EQ.O . ) MACH= AH ACH/ANPT 


OATA1310 


IF (ALPHA *EQ«999. ) AL PH A= Al_ F A/ A NPT 


OA TA1320 


IFtV.EQ.0.) VsAV/ANPT 



OAT A1 330 


I F ( Q , EQ ,0 •) 0 = AQ9 AR/ AN PT 


DA T A 1 340 


VOG=V/G 



DATA1350 


AM=GROSWT*VOG/ (Q*S) 



OATA1360 


V2=2 , 



OATA1370 


IF <L ONG ) GO TO 170 



DAT A1380 

qmimhmmmmmmmmmm 


LATERAL SETUP 

OA T Ai 390 


XAN=-ZAY 



DATA1400 


ZAX=X AY 



DA T A1410 


I PQR= 3 



DA T A 1 4 2 0 


IXY2=1 



OATA143G 


Pl = VOG 



OA TA1440 


P 3 = 1 * 



OA T A 1 450 


A P 3 = 1 , 



DA TA1460 


QS0 = Q *$* SPAN 



OA T Al 47 3 


QSB0=QSB*SPAN 



OAT A1480 


C <1 ,2 ) =1, 



OA TA 149 0 


C (2 ,2 >=V2* AIX/QSB0 



DAT A150 0 


C 13,2>=V2*AIZ/CS0B 



OA T Al 51 0 


C <1,3)=0. 



DA T A 1 520 


C(2,3)=C(2,2I 



OATA1533 


C ( 3 , 3) = C( 3,2) 



DA TA154Q 


C (1, 1) = AM/RAQ 



OA T Al 550 


C <2, 1 ) * A I X/ (QSe*PAO) 



DATA1560 


C (3,1 ) = A I 7/ ( QSB *R A D) 



DA TA1573 


OO 160 1=1,3 



DAT A1580 


C <1,8 l=C<I,l)*RAD 



OA TA1593 


DO 160 J = 4 , 7 



Dfi T A 1 60 0 

160 

C (I , J ) = C< 1,1 ) 



DA TA161 0 


GO TO 200 



DA TA1620 

c**** 

****,», «.**l V *.,«¥*******- 

************ 

LONGITUDINAL SETUP 

DAT 01630 

170 

OSCI=Q*S*CBAP/AIY 



OA T A 1 640 


theta=theta/anpt 



OA T Al 65 0 


WOS=COS (THETA/RA0)*COS 

(PHI/ (RAC*ANPT) >*GROSWT/ (Q*S > 

DAT A1660 


I PQR = 2 



OA T A 1 6 70 


IX Y 7= 3 



0 A T A 1 6 80 


D l=-VOG 



OA T Al 690 


P3=l,/G 



OA T A 1 70 0 
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A P3 = j . 

C (1 »1 )= AM/RAD 
C <2, 1 »=1. /(0SCI*»AD) 

C (3,1 1 =C( 1 ,1> /V 
C (1 , 2 > = 0 . 

C <2,2> = V2/ (QSCI*CBAR) 

C<3,2>=C(i,2) 

00 180 1=1,3 
C <I,8)=C( I,i)*RAD 
C ( 1,3 )=C< I,8)*V/2. 

00 180 J = 4,7 
180 C ( I, J) = C< 1,1 > 

THETN=THETA*C (1,1) 

c set E=aa*aa if derivative is fixed, 

20 0 00 2 20 1 = 1,3 
00 210 J= 1 , 3 
E III J)=STAR 

1 F < , NOT *A A (I , J ) > E ( I * J ) = BL A NK 

210 CONTINUE 

00 220 J= 4 , 8 
K = J- 3 

E (I , J ) = ST AR 

IF( .NOT .08(1 ,K> ) £(I,J)= BLANK 

220 CONTINUE 
M A X = 8 


IF ( A POP > GO TO 129 
00 112 J=1,MU 
BP(1 , J)=P1 
BP (2, Jl«l. 

112 B P ( 3 , J) =P3 

DO 114 J= 1 , MX 
AP (1 , J > =0 . 

AP (2, J) =1 . 

114 A P ( 1 , J) =AP3 
AP (1 , 1 )=P1 
AP( 3, 1) =P3 
129 CONTINUE 
X BN= X AN/G 
Z8X=Z AX/G 

50 5 M A X = 3 5 

CALL A Z OT (APR) 

00 510 1=1,35 
ARRD(I) =0 , 

510 X T 5 ( I ) =0 • 

IF(WMAPR,EQ.& . ) RETURN 
K = 0 

00 525 1=1, MX 
00 520 J = 1 , MU 

I F ( 09 ( I , J ) ) GO TO 520 

K = K + 1 

XT5 (K)=B(I,J)-5R(I,J ) 

APRO ( K I = APRS ( I , J) *WMAPR 
520 CONTINUE 

DO 525 J= 1 » MX 

I F ( A A ( I , J ) ) GO TO 525 


DA TA1710 
DATA1720 
DA T A 1 7 30 
DA TA1 740 
DAT A1750 
DA T A 1 760 
OATA1770 
0 A T A 1 7 80 
OA T A 1 790 
OAT A18Q0 
OATA1610 
DA TA1 820 
DA T A 1 6 30 

otherwise e=aa aa oatai840 

DA T A 1 8 50 
DAT A1 860 
OA TA1870 
DA TA1880 
OAT A1890 
OA T A1900 
OAT A1910 
DAT A1920 
DA T At 930 
DAT A1940 
OA TA1950 

FORM AP AND 9P IF NOT READ IN 0ATA196Q 

DATA1970 
DA TA1980 
DAT A1990 
OA TA200 0 
DA TA2010 
DAT A2O20 
OATA2330 
OATA2040 
OA T A 2 0 50 
DATA2060 
DAT A2070 
OA TA2080 
OAT A2090 
DA T A213 0 

STORE APR IORI WEIGHTINGS OATA2110 

OATA2120 
DATA2130 
DAT A2140 
□ A TA2150 
DATA2160 
DATA2170 
DA T A2180 
DATA2190 
OA T A 2 20 0 
DA TA2210 
DATA2220 
OATA2230 
OATA224D 
DATA2250 
DAT A2260 
OATA2270 
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K = K +1 

XT5 (<) = A ( It J> -AR< I, J) 

A PRD< K) = A PRA ( I , J) *WMAPR 
525 CONTINUE 

1301 FORMA T ( 312,14, 7F1 3 , 4/8 F 1 0 . 4 ) 

2300 FORMAT (14HQTIME I NTERV AL , I 3 , 10 H NOT FOUNO) 

2001 FORMAT C55H0INPUT TIME HISTORY WITH BIASES AND SCALE FACTORS APPLI 
38HED ANO VANE CORRECTIONS ADDED FOLLOWS • ) 

200 3 FORMATdHi ,26X ,20A4,13X, A10 /4HCW =,F8.1,6H IX =,F9.1,6H IZ = , 
F10 , 1, 7H IXZ =.F7.1,6H TY *,F9.1,8H QBAR =,F7. 2, 5H V =, 
F8 *2/5X, 4HTIME, 6X ,14A6 , A4 > 

2007 FORMAT (1H0 ,4QX,35HT0TAL NUMBER OF POINTS FOR MANEUVER , 13, 2H =,I6) 
2010 FORMAT (IX, 312, I 3, 2X, 12F8, 3, F«. 1 1 F 8 . 3 , F 8,2 I 
RETURN 
ENO 


OATA2280 
OAT A2 290 
OATA2300 
DAT A2310 
OATA2320 
OATA2330 
OATA2340 
OATA2350 
O A T A 2 360 
DATA2370 
DATA2380 
OATA2390 
OATA2400 
OATA2410 
DAT A242D 


52 



APPENDIX A — Continued 


SUBROUTINE AGIRL 


Description: Subroutine AGIRL performs the parameter estimation . Almost all 
the routine is skipped if NOITER = 0. 

Flow chart: 
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Programing notes: For derivation of the form of the first and second gradients , 

see reference 3 . 


Important variables — 


SUM — contains second gradient in lower triangular and diagonal locations, and 
off-diagonal a priori weightings in upper triangular. Diagonal a priori weightings 

t h 

are in APRD . The first gradient appears as an extra column in SUM (the JKM 
column) . The SUM matrix is printed each iteration when TEST = T . 

XJI ~ V c( Z i - y i) 

RIA - R _1 A 


RIB — R 

R" ] 

PHI1 - e 


A A t 


APHI - 



R 

e 



-1 


BPHI - (APHI) (B) 

AAP, BBP — observation matrices formed from A and AP or B and BP, with any 
terms for accelerometer offset from the center of gravity added . (These matrices are 
referred to as G and H in the derivation . ) 


RIAP 
RIAP(I,J,K) 


array of partial derivatives of AAP with respect to A 
9 AAP (I ,K) 

9A(J ,K) • 


RIBP — array of partial 


RIBP (I , J ,K) 


9BBP (I ,K) 
9B(J,K) 


derivatives of BBP with respect to B . 


Z, U — measured values of observations and controls. 

XT1 , XT2 — computed values for observations. 

XT3 — variable initial conditions on the states. 

XT4 — variable bias on the observations other than states . 

XT5 — difference between the estimated coefficients and the a priori values. 
PB — solution vector for the change in the estimates of the coefficients. 

MX — number of states . 

MZ — number of observations . 
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Subroutine listing: 


c 

c 

c 


7 

2 


31 C 

32 0 


33 0 

340 

350 


SUBROUTINE AGIRL 

CORE SUBROUTINE - ITERATIVE LOCP 


COMMON /ALLDIM/ MAX, MI 
COMMON /COM/ NCASE.M7, 
01T0L,01RLX,NAPR, 
COMMON /TOGIRL/JKM, JKM 
•BIASK, ZERO, APRO, 
COMMON /INFO/ HH, NOI TE 
CORECT,BI ASKN.PLT 
COMMON /HEADNG/ LABEL 
COMMON /MATRIX/ A , B, AA 
COMMON /ROUTH/ PUNCH, P 
COMMON /Q I ME NS/ C,CC,E 
REAL XT3(4) , XT4(3) ,XT5 
REAL U12 (8) ,U23(8),8PH 
LOGICAL A A, BB , TEST,Z ER 
,ZERO(4) ,eiASK(3) 
DIMENSION A ( 5,4 ), B< 
A A { 5,4 ) ,08( 
A P ( 4,4 ) , 9 P ( 
XT 

XT1 (7) ,NFTS(15), 
RIBP (4,4, 8) ,RIAP( 
EQUIVALENCE ( A PHI ( 5, 3) 
DATA PH I1L/4HPHI1/,APH 
ANPT=FLOAT(NPTT> 
ERMX=ERRMAX*ANPT 
EN= 1 *£♦ 50 
ERSTOP= .FALSE. 

DO 7 1=1, JKMM 1 
PB( I ) =0 . 

OO 2 I = 1 ,MX 
XT3(I)=0. 

IF (NOITER.EQ. C) GO TO 
WRITE (3 , 1000 > TITLE, JUL 
CALL OERIV(LONG) 

OO 320 1=1, MX 

OO 320 J= 1 , MX 

OO 310 K= 1 , MU 

RIBPU, J,K>=RI(I, J|*BP 

OO 320 K= 1 , M X 

RIAP ( I , J , K ) = R I ( I , J ) * AP 

TERMS FOR ACCELEROMETE 

IF {. NOT. CORECT) GO TO 

DO 340 J= 1 , MX 

OO 330 K= 1 , M L) 

RIBP(1, J,K»=RIBP(1,J,K 

RIBP(IXYZ,J,K) =RIBP(IX 

OO 340 K= 1 , MX 

RIAP (1, J,K) = RIAP I1,J,K 

RIAP( IXYZ , J, K ) =RIAP{ IX 

CONTINUE 

WRITE (3,103 ) JKMMi 


NPTS , NPTT , SPS »PRINT,LONG,LATR, PLOTEM,NDl, 
WFAC, WHA FR, ERRSUM, LAST, RATIO 
M , JKMM1 # ERRMAX , ZEROI N*X T5 ♦ BCUNO , SUM,NI 
JKV , OIAG 

R, MX, HXP1,MU, TEST,XAN,ZAX,IPQR, IXYZ ,XT 3,MZM 
MAX ,XT4, ERRVEC, PUNCHO ,NEAT 

S, TI TLE, JULIAN 
,BB, AP,BP,01, R I 

ARAM, MACH, ALP ,CG,AC, 8C 
,WQS, THE TN 

(35 > , PB ( 35) , APRC(35 I ,LA EELS (15 ) 

1(5,8) ,EXTRA(4) ,AC(5,4),BC(5,8) 

OIN,BIASKN, CORECT,LATR,ERS TOP, PUNCHO 
♦PRINT , LAST ,0IAG,E(24), PUNCH, PL OTEM 
5,8 ), SUM (35, 35) , PH II ( 5,4 ), U( 8,3 ), 

5,8 ) , R I ( 5 , 4 ) . APHI ( 5,4 ), Z< 8,3 ), 

*♦•8 ), XJI (3 5, 8 ) , OUM1 ( 5,4 ),01( 8,7 ), 

12(4) ,AAP<3,4) ,BBP(3,fl) ,RIA(5,4) ,RIB<5 ,8), 
ERRVEC (2 0) ,XT2(7) ,02 ( 8 ) , TI TLE ( 20 > , X T 6( 4 ) , 
4,4,4) ,XJID1 (35, 7) ,C(3, 3 ) , CC (3 , 5) 

,A°HIL), (PH 11(5*3), PH I1L) , (BPHI (5,3) ,8 PHIL) 
IL/4HAPHI/, BPHIL/4HPHI9/ 


600 

IAN, MACH, ALP, D AR AM, C G 


(I, K) 

«I*KI 

R OFFSET FROM CG 
353 


)*XAN*RI (2, J) 

YZ , J , K ) ♦ Z AX *R I ( IPQR, J ) 

)4XAN*RI (2 ,J) 

YZ, J, K) 4 ZA X*R I < IPQR, J) 


OO 32 LL = L , NO ITER 


ITERATION LOOP 


AG 1 K 

AGIR 

AG IR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AG IR 

AG IR 

AGIR 

AGIR 

AG IR 

AGIR 

AG IR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AG IR 

AGIR 

AGIR 

AG IR 

AGIR 

AGIR 

AGIR 

AGIR 

AG IR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AG IR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AGIR 

AG TR 

AGIR 

AG IR 

AGIR 

AGIR 


13 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
20 0 
210 
220 
230 
240 
250 
260 
270 
280 
290 
303 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
5 30 
540 
550 
560 
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MAX = 5 

CALL ASPIT(A) 

CALL AS P IT C f? > 

CALL AMULTCRI* A , P I A) 

CALL AMULT (RI , E ,RI0) 

l COMPUTE A*AP AND B*9P ADO TERMS FOR CG SHIFT IF NEEOEO 

DO 45 1 = 1*3 
DO 40 J=1,MX 

40 AAP(I,J>=RIAII,JI»AP(I,J) 

DO 45 J = 1 * MU 

45 BBP(I , J> =RIB<I * J) *BP (I *J) 

IF(.NOT.CORECT) GO TO 50 
00 46 J= 1 * MX 

AAP(1,J)=AAP(1,JI +XAN* RI A ( 2 i J > 

46 AAPUXVZ, J) = A AP (IXYZ * J ) +1 AX*RI A t IPQR, J) 

DO 47 J= 1 * MU 

BBP (l,J)=eePCl,J»*XAN*RIBC2,J) 

4 7 BBP ( IXYZ, J)=0BP CIXYZ, J>+ZAX*RIB< IPQR, J) 

50 REWIND 7 

CALL AEAT(RIA 1 HH,PHI1i A PH I * 0UM1, SUM ,NEAT J 
CALL AMUL T ( APHI ,R I. OUM1) 

CALL AMAKE (APHI »DUM1 ) 
call amult <APHi f e,BPHi ) 

IF ( .NOT. TEST) GO TO 51 
CALL AS PI T ( PH II) 

CALL ASPIT(APHI) 

CALL ASPIT(BPHI) 

51 DO 53 1 = 1 » MX 
DO 53 J=1*I 

T EM P= PH II ( I, J) 

P HI 1 (I * J)=PHI1 (J, I) 

53 PHI1 ( J* I ) = TEMP 
MAX = N I 
00 60 1=1 * JKM 
00 60 J=i*I 
60 SUM(I*J>=0. 

DO 52 1=1,8 

52 02 (I) = 0.0 

C VARIABLE BIAS 

IF(.NOT.BIASKN) GO TO 3 

I9IAS=JKV 

DO 16 I * 1 * M Z M 

IF( .N0T.9IASK (I) ) GO TO 16 

IBIAS = IBIAS ♦ 1 

DO 15 J = 1 * M7 

15 XJI (IBIAS, J) = Q . 

XJI(IBIAS,I+MX)=1. 

16 CONTINUE 

WRITE (3 , 1001) (LABELS (I ) ,I=MXP1 ,MZ> 

WRITE (3, 102) ( XT4( I) * 1=1, MZM) 

3 DO 26 LM = 1 , NC ASE 
NNM1=NPTS (LM) -1 
XJI C N I , 1) = JKV 
XJI ( NI, 2 I =MX 
CALL AZOT(XJI) 

REAO (7) IT, XT1, lU<K*i ),K = 1*6) , EXTRA 


AGIR 570 
AGIR 580 
AGIR 590 
AGIR 600 
AGIR 610 
AGIR 620 
AGIR 630 
AGIR 640 
AGIR 650 
AGIR 660 
AGIR 670 
AGIR 680 
AGIR 690 
AGIR 700 
AGIR 710 
AGIR 720 
AGIR 730 
AGIR 740 
AGIR 750 
AGIR 760 
AGIR 770 
AGIR 780 
AGIR 790 
AGIR 800 
AGIR 610 
AGIR 820 
AGIR 830 
AGIR 840 
AGIR 850 
AGIR 860 
AGIR 870 
AGIR 880 
AGIR 890 
AGIR 900 
AGIR 910 
AGIR 920 
AGIR 930 
AGIR 940 
AGIR 950 
AGIR 960 
AGIR 970 
AGIR 980 
AGIR 990 
AGIR1000 
AG IR1Q1Q 
AG IR1020 
AG IR1Q30 
AG I R 1 0 40 
AGIR105Q 
AG I Rl 0 60 
AG IR 1 070 
AG IR108C 
AGIR1090 
AG IR11QQ 
AG I R 1 11 0 
AG I R 1 120 
AGIR1130 
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READ (7) IT, XT2, (U(K,2 ),K=1, 8) .EXTRA 
C VARIABLE I N IT I A l C ON 01 TI 0 N 

IF< .NOT. ZEROIN) GO TO 6 
IC = JKMM 
DO 4 I = 1 , MX 
IE ( . NOT • ZERO < I ) I GO TO 4 
IC : IC M 

XJI (IC,I> =i. 

XTi(I) = XT1(I> «• XT3CI) 

XT2(I) = X T2 ( I ) ♦ XT3IIJ 
4 CONTINUE 

IE (LM. NE. 1 ) GO TO 6 

WRITE (3, 1001) (LABELS (I), 1=1 , MX) 

WRITE (3,106) (XT3(I> t I*l,MX ) 

6 DO 8 1=1, MZ 

Z ( I, 1) = XT 1 ( I ) 

8 Z ( I , 2 ) = X T2 ( I ) 

I F ( TEST ) WRITE (3, 111 ) ( XT1 ( I) , I =1 , MZ > 

IF (TEST ) WRITE (3,111 ><XT2(I) ,1=1 ,MZ) 

T I ME LOOP 

COMPUTE GRADIENT ANO HESSIAN 

00 10025 IP = 2 , NNM1 

READ (7) IT, ( Z ( K, 3) « K= 1, 7) , (U ( J,3) , J=l,8) , EXTRA 

IF(LL.EO.l) GO TO 203 

DO 201 1=1, MX 

XT12(I) = .5*(XT1(I)«-XT2(I)> 

201 XT6 ( I ) =XT2 (I) 

GO TO 205 
20 3 00 204 1=1 , MX 

XT12(I) = . 5*(Z(I,2)+Z (1,1)) 

XT6 (I >=Z( 1,2 > 

Z d, 1 ) = Z ( 1 , 2 ) 

20 4 Z ( I , 2 ) = Z ( I , 3 ) 

20 5 CONTINUE 

00 206 1=1, MU 
U 12 (I )=.5* (U(I ,l)fU(I,2) ) 

U23 (I )= .5* (U ( 1 , 2 ) +U ( 1 , 3) ) 

UU ,1>=U( 1,2) 

20 e U (I,2) = U( 1,3) 

00 210 J*MXP1 , MZ 
00 210 JK=1 , JKV 
210 XJI (JK, J) = C . 0 
DO 11 I = 1 , M X 
XTl (II = XT2 (I) 

11 XT2 (I)=0. 

CALL AMULT(XJI,PHI1,XJID1) 

CALL AMAKE (XJ I,XJIOl ) 

JK =0 

DO 14 J = 1, M X 
DO 12 K = l,NU 

XT2 (J ) = XT2 (J) *0 PHI (J,K ) *U2 3 (K) 

IF (BB ( J, K) ) GO TO 12 
JK = JK ♦ 1 

DO 115 1=1, MX 

XJI( JK, IfMX) =RIBP(I, J,K)*U(K,1) 

115 XJI (JK, I ) = X J I (JK,I)+U12(K)*APHI (I ,J) 

12 CONTINUE 


AGIR1140 

AGIR1150 

AG I R 1 160 

AGIR1170 

AG IR1180 

AG IR 1 190 

AGIR1200 

AG IR 1 210 

AGIR1220 

AG I R 1 2 30 

AGIR1240 

AGIR1250 

AGIR1260 

AG IR1270 

AGIR1280 

AGIR1290 

AGIR1300 

AG IR1310 

AGIR1320 

AGIR1330 

AGIR1340 

AGIR1350 

AGIR1363 

AG IR1370 

AG I R 1 38 0 

AGIR1390 

AG IR1400 

AGIR1410 

AG IR1420 

AG IR1430 

AG IR1440 

AGIR1450 

AG IR1460 

AG IR1470 

AGIR1480 

AGIR1490 

AG IR150 0 

AGIR151Q 

AG IR1520 

AGIR1530 

AGIR1540 

AGIR1550 

AGIR1560 

AG IR1570 

AG IR 158 0 

AG IR1590 

AG IR1600 

AGIR161G 

AGIR1620 

AGIR1630 

AGIR1640 

AGIR1650 

AG IR1660 

AGIR1670 

AG IR 1680 

AG IRi 69Q 

AG I R1 73 0 



APPENDIX A 


Continued 


DO i 4 K = 1*MX 

XT2(J)=XT2(J) + PHI 1 (K » J ) * XT 1 (K> 

IF(AA(J,K)> GO TO 14 
JK = JK + 1 

DO 125 1=1, MX 

XJI(JK,I+MX)=PIAP(I,J,K1*XT6(K) 

125 XJI(JK,I)=XJI(JK*IM-XT12(K)*APHI(I,J> 

14 CONTINUE 

DO 19 L = MX PI » M7 
lhmx-l-hx 
00 17 JK=t,JKV 
00 17 K = 1 » M X 

17 XJI(JK,U=XJI (JK,L> ♦ XJI(JK,K)*AAP(LMMX,K) 
XT2 (L > = XT4 (LMMXI 

DO 18 K = 1 , MU 

18 XT2(L>=XT2(L> +60P (LMMX ,K)*U (K,2> 

00 19 K * 1 ♦ MX 

19 XT2(L)=XT2CU ♦AAP(LMMX,K)*XT2(K> 

00 20 J = l.MZ 

XJI (JKM, J ) = 2 < J, 3) - XT 2 < J ) 

20 02 ( J) = XJI l JKM, J) **2 ♦ 02 ( J > 

IF (TEST! WRITE (3* 111 > < XT2 < I > * 1 = 1 * MZ ) 

1 F < 01 AG ) GO TO 62 
M I X= 8 

XJUNI, 1) =JKM 

XJI(NI,2I =MZ 

CALL AMUL T (X JI , 01 *XJ 10 1 ) 

XJI CNI ♦ 11 = JK V 
Xjr(NI,2l =MX 


MI X = 5 
GO TO 63 

62 CALL OMULT (X JI ,01 *XJI01 , JKM,MZ 1 

63 CALL SUMULTtX JI,XJI01* SUM, JKM,MZ) 
IF(SUM< JKM, JKM ) *GT.ERMX> GO TO 510 

10025 CONTINUE 
26 CONTINUE 

,»**«*******«»+* 

ERR SUMs SUM ( JKM , JKM) / ANPT 


* ENO OF TIME AND CASE LOOPS 


ERRVEC (LL 1=ERRSUM 
WRITE (3,1 041ERRSUM 

IF ( ABSC ( EN-ERRSUM) /EN) .LT.BOUNC) ER ST 0P= . TR UE , 


C 


EN=ERRSUM 
00 64 1=1, MZ 
XT1 (11=02 ( I) /ANPT 
64 02(1 ) =XTl<n*Dl (1*1) 

WRITE(3,105> (XT1(I)*I=1*MZ) 
WRITE (3,106) (02(1) ,1=1 »MZ) 


**¥*•¥***¥♦** 


SOLUTION OF SYSTEM 


DO 28 I = 1 » JKM Ml 

XT5 (I > = X T5 ( I ) + P8 (I ) 

SUM ( I , JKM) =SUM <JKM,I)-XT5(I)*APR0(I) 
SUM (1,1) =SUM ( I , I) ♦APRO (I) 


I M 1= I -1 

IF(IMl.EQ.O) GO TO 28 
00 27 J= 1 , IM 1 

27 SUM (I , J ) =SUM (I ,J> 4SUM( J, I) 

28 CONTINUE 


AG IP1710 
AGIR172C 
AGIR173Q 
AG IR 1 740 
A G I R 1 750 
AGIR1 760 
AG I R 1 77 0 
AGIR1780 
AG I P 1 790 
AGIR1830 
AG IR1810 
AGIR1S20 
AG IR1830 
AGIR1840 
AG IR1850 
AG I R 1 860 
AG I R 1 8 70 
AG IR1 880 
AG IR1890 
AGIR1900 
AG I R1 910 
AG IR1920 
AG IP 19 30 
AG IR1 940 
AG I R 1 95 0 
AG IR1960 
AG IR1970 
AG IR1980 
AGIR1990 
AGIR2000 
AG IR2010 
AGIR20 20 
AG IR2 0 30 
AGIR2040 
AG I R 2050 
AG IR2060 
AGIR2070 
AGIR2080 
AG IR2090 
AGIR2100 
AG IR2110 
AGIR2120 
AG I R 2 i 30 
AG IR2140 
AG IR215C 
AGIR216 
AGIR2170 
AGIR2180 
AG IR219Q 
AG IR2200 
AG IR2210 
AGIR2220 
AG IR22 30 
AGIR2240 
AG IR2250 
AG IR2263 
AG IR2270 
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) GO TO 31 
IJ * 1 

P6 Cl J) ♦ A { I, J ) 


I F (TEST) CALL A°PrT(SLM) 

I P ( ERST OP , OR. < L L« EQ. NO ITER) ) CALL CRA PER( SUM, A PRO, MU , MZ, ERRS UM > 
CALL SCLVE(SUM,P8) 

IF (TEST) WRITE (3,107 > ( PB ( I ) , r=l,JKMMl) 

UPOATE COEFFICIENTS 

I J = 0 

00 31 I - i,MX 

0030 J = 1,MU 

IF (99 ( I , J ) ) GO TO 3C 

IJ = IJ + 1 

9 (I, J ) = P9(I J) ♦ 8 ( I* J ) 

30 CONTINUE 

00 31 J = 1 # MX 

IF ( A A ( I , J ) ) GO TO 31 

IJ = IJ * 1 

A ( I » J > = P6 (I J) ♦ A (I, J ) 

31 CONTINUE 

I F( . NOT, ZEROIN) GO TO 35 
00 34 1=1, MX 

IF ( • NOT , Z ERO ( I ) ) GO TO 34 
I J=I J«-l 

X T 3 < I )=XT 3 ( 1 1 *P8< IJ) 

34 CONTINUE 

35 IF C.NOT.BIASKN ) GO TO 37 

00 36 1=1, M?M 

IF (, NOT.QIASKUM GO TO 36 

1 J= I J ♦ 1 

X T4 ( I ) = XT4 (I ) 4- PB <1 J t 
3 fc CONTINUE 

37 WRI TE < 3 , 1011 LL 

IF (ERSTOP) GO TO 36 

32 CONTINUE 

c ******* ***♦*******♦*****¥****, £N D OF ITERATION LOOP 

GO TO 500 

38 WRITE (3 , 110 IROUNP 
NOI TE R=LL 

500 MAX=5 

WRITE (3 , 2003) 

CALL AS PIT (AC) 

CALL ASPITCQC) 

WRITE (3,2006) 

DO 50 8 1=1,3 
DO 5C7 J= 1 , 3 

507 AC ( I , J)=AC(I,J)*C(I,J) 

DO 508 J= 1 » 5 

506 8C(I, J)=BC(I, J)*CC(I,J) 

CALL AS PI T ( AC ) 

CALL ASPITCBC) 

RETURN 

510 WRITE(3,2001)ERRMAX 
NOITE R= LL 
ERRVEC(LL)=ERRMAX 

101 FOPMA T( //50X , 16HI TERAT ION NUMBER , 14 , 1 Q H COUPLE TEO > 

102 FORMAT (1 5H VARIABLE BIAS ,3E12.4) 

103 FORMAT (1H + »1GOX,2OHNUM0ER OF UKKNOWNS = , 13 / 1HC , 20X , 


END OF ITERATION LOOP 


23HENTER ING ITERATION LOOP/25HO DIMENSIONAL DERIVATIVE , 
39HM ATR ICES PER RADIAN. BIASES IN RADIANS.//) 


AG IR2280 
AG IP2290 
AG IR2300 
AG IR2310 
AGIR2320 
AG IR2330 
AG IR2340 
AGIR2350 
AGIR2360 
AGIR2370 
AG IR2380 
AGIR239C 
AG IR240 0 
AGIR2410 
AG IR 2420 
AG IR2430 
AG IR 2 440 
AGIR2450 
AG I R 2460 
AGIR247Q 
AG IR2480 
AG I R 2 490 
AGIR250C 
AGIR251C 
AGIR2520 
AGIR2530 
AGIR2540 
AG IR2550 
AGIP2560 
AG IR2573 
AG IR2580 
AGIR2590 
AG IR2600 
AGIR2610 
AG IR262Q 
AG IR2630 
AGIR2640 
AGIR2650 
AG IR 2660 
AGIR2670 
AG IR2680 
AGIR2690 
AG IR2700 
AG IR2710 
AG IR2720 
ACIR2730 
AG IR2740 
AGIR2750 
AGIR2760 
AG IR2770 
AGIR2780 
AG I R 2 790 
AGIR2800 
AGIR2810 
AGIR2820 
AGIR2830 
AGIR2 640 
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104 FORMAT <95X,2QHWEIGHTE0 ERROR SUM =,E12.4> 

10 5 F0RMATC7H ERRORS/ IX, 11 E12. 4) 

10 € FORMAT ( 16 H WEIGHTED ER RORS / 1 X , 1 1 E 1 2 . 4 ) 

107 FORMAT { 12 H P0 VECTOR * , 10 El 2 . 4/ 1 12X , 10E12 . 4 ) > 

108 FORMAT ( 15H VARIABLE IC ,4E12.4> 

11 q FORMAT (37HQ ITERATION TERMINATING, ERRCR H I TH IN , F9 .6 , 0 H 90UND.I 
Ill FORMAT (1X,7E12«4) 

130 0 FORMAT(1H1,26X,20 A4,13 X, A10/1HO ,1 OX ,15HSTARTING VALUES, 5X, 

6HMACH = ,F6. 3,5X, 7HALPHA = , F 7. 2 , 5 X* 7HPAR A M -,FlC.4,5X, 

- 4HCG = , F6 . 3 ) 

1001 FORMAT ( 15X, 7A12) 

2031 FORMAT (40H0I TERATION TERMINATING. MAXIMUM ERROR OF.E10.2, 

9H EXCEEDEO/27HOI NPUT TIME HISTORY FOLLOWS) 

2003 FORMAT ( 45HQC0NF IDENCE LEVELS FOR NEXT TO LAST ITERATION/ 

5X ,1 3H(0lMENSI0NAL)/> 

200 6 FORMAT ( 22HQ < NON- OI MENSIONALJ) 

600 RETURN 
END 


AG IR2850 
AGIR2860 
AGIR2870 
AGIR2880 
AGIR2890 
AG I R 290 3 
AGIR2910 
AGIR2920 
AGIR2930 
AGIR2940 
AGIR2950 
AGIR2960 
AGIR2970 
AG IR 2980 
AGIR2990 
AGIR3030 
AG IR3010 
AGIR3020 
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APPENDIX A - Continued 


SUBROUTINE OUTPUT 


Description: Subroutine OUTPUT provides the final output in several forms. 
The time histories are computed with the final derivative estimates and may be 
printed or written on a file for plotting . Final derivative estimates are also printed 
and, if requested, punched on cards. An error exit section to print the input time 
history is entered if PLTMAX or ERRMAX was exceeded. 

Programing notes: Time history data for plotting are written on unit 8 . The 
time histories are always computed to determine the final error sum, even if 
neither printout nor plots are requested . Most variable names are similar to those 
in subroutine AGIRL . ERRVEC contains the error sum from each iteration in AGIRL 
for the convergence summary . 
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Subroutine listing: 


SUBROUTINE 0UTPUT(D2) 

COMPUTES FINAL TIME HISTORY, OUTPUT MCCES AS SPECIFIED 

COMMON /ALLOIM/ MAY, MIX 

COMMON /MATRIX/ A , 6, A A ♦ 5« , A P , 8P , 0 1 , RI 

COMMON /COM/ NCAS£,MZ, NPTStNPTT,$PS, PRINT, LONG, LATR,PLOTEM ,N01 , 
01T0L,01PLX,NAPR, WF AC, WM APR, ERRSUM, LAST, RATIO 
COMMON /INFO/ HH,NOITER,MX,MXPl,MU,TEST,XAN,ZAX, IPQR, I XYZ , XT 3 , MZ M , 
CORECT.fl IASKN,PLTMAX, X T4 , ERR VEC , PUNCHO ,N E AT 
COMMON/HE ADNG/ L A BEL S , T I T LE , JU L I A N 
COMMON /OI MENS / C , CC ,E , HQ S, THE TN 
COMMON /ROUTH/ PUNCH , P A R A M , MA CH , AL P, CG , AC , BC 

OI MENSI ON A ( 5 « 4 ) , 9 C5 , Q > , A A (5,41 ,08(5, B),AP(4,4),BP(4. 8 ) , 01 (8 ,7) , 
XT4 t 3 ) , NPTSC15), PH Ii (5, *<) , A PH I (5,4) ,DUM1(5,4> , 

XT1 ( 7) ,XT2 (7> ,0?( 7) ,Z (71 ,BJI (4) , TITLE (20 > ,Ut (8) ,U2(9) , 

ERRVEC ( 20 ) ,AAP(3, 4),BBP<3, 8) , X T6 ( 7 ) , U ( 4) , AC < 5 , 4 > , 0C (5 ,8 ) 
LOGICAL TEST.CCRECT, BI ASKN, LAT R, PUNCH ,PL0TEM, E (24) .PRINT, LAST, 
OUTPT ,PUNCHO,LONG 

REAL CAL IB (7) , LABELS (1 5) ,MACH,C(3,3>,CC<3,5>,U3(4),Y{7),BIAS0(4) 
,RI ( 5,4) , RIA< 5, 4) ,RIB( 5,01 , EXTRA ( 4) ,EXTR1 (4) ,XT3 (4) 

OAT A PHI 1L/4HPHI1/, APH I L /4 H A PH I / , A L AT /4HL A TR/ , A LON/4 HL ON G / 

RAD = 5 7,2950 
00 5 1=1, 7 
5 CALIBU) = 1./RAD 
CALIB (5 ) = 1 • 

IF(LATP) GO TO 7 
CALIB(3)=1. 

CALIB (7)= 1. 

7 I F( NOITER ,EQ. 0 ) GO TO 0 

IF(ERRVEC (NOITER) .GE.PLTMAX) GO TO 45 Q 
S PHI1 (5, 3 ) =PHI1L 
A PHI (5,3) = APH I L 
OUTPT =PR I NT .OR. PLOTEM 
REWIND 7 
M AX =5 

WRITE (3 , 10 QO) TITLE, JUL IAN 
WRITE (3, 20 0 0 ) MACH , ALP, PAR AM ,CG 
CALL DERIV (LONG) 

00 10 1=1, MZM 

10 OIASD ( I ) =XT4 < I) /CALIB( I*MX) 

IF(BIASKN) WRITE( 3,100 3 ) (XT4 (I) , 1 = 1 ,MZM> 

CALL AMULT(RI,A,EIA> 

CALL AMULT(RI , 9, RIB) 

CALL AEATCRIA.HH, PHI 1 , APHI, 0UMl,BBP,N EAT) 

CALL AMULT ( APHI.PI.DUM1) 

CALL AMAKE(APHI,0UM1 ) 

IF ( . NOT. TEST 1 GO TO 60 
CALL AS PIT (APHI) 

CALL ASPIT(PHIl) 

60 DO 70 1=1, MZ 
70 D 2 ( I ) =0 . 

00 55 1=1,3 
DO 52 J= 1 , M X 

52 AAP(I, JI = RIA ( I, J) *AP(I , J) 

DO 55 J = 1 , MU 


OU TP 

0 

OU TP 

10 

OU TP 

20 

OU TP 

30 

OU TP 

40 

OU T P 

5C 

OU TP 

60 

OU TP 

70 

OU T P 

30 

OU T P 

90 

OU TP 

IOC 

OU TP 

110 

OU T P 

120 

OU TP 

130 

OU TP 

140 

OU TP 

150 

OU TP 

160 

OU TP 

170 

OU TP 

130 

OU TP 

190 

OU T P 

200 

OU TP 

21C 

OU TP 

220 

OU T P 

230 

OU TP 

240 

OU T P 

250 

OU TP 

260 

OU T P 

270 

OU T P 

280 

OU TP 

290 

OU TP 

300 

OU TP 

310 

OU TP 

320 

OU TP 

330 

OU TP 

34C 

OU T P 

350 

OU T P 

360 

OU T P 

370 

OU TP 

380 

OU T P 

390 

OU T P 

4 J 0 

OU TP 

410 

OU TP 

420 

OU TP 

430 

OU T p 

440 

OU TP 

450 

OU TP 

460 

OU TP 

470 

OU T P 

480 

OU TP 

490 

OU TP 

500 

OU T P 

510 

OU T P 

520 

OU TP 

5 30 

OU TP 

540 

OU T P 

550 

OU T P 

560 
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55 3BP(I»J)=RIB(I,J)*BP(I ,J> 

I F ( , NOT • CORECT ) GO TO 69 
DO 61 J = 1 , MX 

AAP(1, J)=AAP(1, J1*RIA(2, J) * XAN 
61 AAP(IXYZ,J) = AAP(IXYZ,JM.7AX*RIA(IPQR,J) 
DO 62 J = 1 » MU 

BBP t 1 , J) =0BP(1 ♦ J) ♦XAN*RID(2 , J) 

6? BBP(IXYZ,J)=8BP<IXYZ,J)*7AX*pIB(IPQR,J> 
69 CONTINUE 
ERRSU M= 0 • 


0*v******,*v»**»**« v ,*, v v***v** + «*»vi|i*** 

00 200 LM=1,NCA$F 
NNM1=NPTS <LM) -1 
READ (7) IT, XT6 ,U2 , EXTRA 
REAO (71 I T1 , X 12, Ul« EXTR1 
00 75 1=1 , MX 
Y (I)=XT6(IUXT3 m 

75 X T 1 (I ) = XT2 ( I ) ♦XTjm 

IF ( . NOT, OUTPT 1 GO TO 95 
DO 76 I=MXP1,M7 
Y ( I ) = XT6< n 

76 XT1 ( nsxrzm 
00 8(3 1 = 1, MZ 

Z< I) = X T 6 ( I) /CAL I R ( I) 

Y (I)=Y( I) /CALI6II 1 
XT 2 ( n = XT2CT) /CALIB( I) 

80 XT6 (I 1 = XT1 Ul/CALIBCI) 

DO 91 1=1,4 
U3( I > =U2 ( I) *RA0 
91 U ( 1 1 =U1 (I )*RAO 

IF (.NOT, PRINT) GO TO 93 
WRITE (3,1000) TITLE, JULIAN 
IF(LM.EQ.i) WR ITE (3, 20 05 1 
WRITE (3, 2004) (LABELS (I ), 1= 1 , MZ) 
WRITE (3,113) IT, (7(1) ,I=1,MZ) 

WRITE (3 ,113) IT 1 * (XT6(I),I=1,MZ) 

L I NE = 2 

IF ( . NOT. PLOTEM ) GO TO 95 
93 WRITE (8) Y,Z,U3, EXTRA 

WRITE (8) XT6, XT2,U, EXTR1 


CASE LOOP 


TIME LOOP 


95 DO 2C3 IP=2,NNM1 

REAO (7) IT, Z,U2, EXTRA 
DO llfl 1 = 1, MX 
DJI < I )=0. 

XT2 ( I ) =0. 

00 110 J=1,MU 

110 8JI <I)=8JI(I)*B(I,JI*(U2(J) +U1CJ) ) * ,5 
DO 120 J= 1 ♦ M X 
DO 120 K = 1 , MX 

120 X T 2 ( J ) = XT2 ( J ) ♦ DJI ( K) * A PH I ( J, K ) ♦ XT1 ( K> *PHI 1 ( J, K> 

DO 140 L=MXP1,MZ 
LMMX=L-MX 
X T 2 ( L ) =XT4 (LMMX) 

00 130 K= 1 ,MU 

130 X T 2 ( L ) = X T 2 ( L ) ♦ U2 (K ) * 8B P ( LMMX, K ) 

DO 140 K= 1 , M X 


OUTP 5 70 
OU TP 58 0 
OUTP 5 90 
OUTP 600 
OUTP 610 
OUTP 62 Q 
OUTP 630 
OUTP 640 
OUTP 650 
OUTP 660 
OUTP 670 
OUTP 680 
OUTP 690 
OUTP 70 C 
OUTP 710 
OUTP 720 
OUTP 730 
OUTP 740 
OUTP 750 
OUTP 760 
OUTP 770 
OUTP 780 
OUTP 790 
OUTP 850 
OUTP 810 
OUTP 820 
OUTP 830 
OUTP 840 
OUTP 851 
OUTP 860 
OUTP 87C 
OUTP 880 
OUTP 890 
OUTP 9DO 
OUTP 910 
OUTP 920 
OUTP 930 
OUTP 940 
OUTP 950 
OUTP 960 
OUTP 970 
OUTP 980 
OUTP 990 
OU T PI 0 0 0 
OUTP1Q1G 
OU TP 10 20 
OUTPIO 30 
OUTP10 40 
OU TP1050 
OU T PI 0 60 
OUTP1Q70 
OU T PI 0 8 0 
OU T PI 090 
OUTP11QO 
OUT PI 11 0 
OUTP1120 
OUTP113G 
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140 XT2(L> = XT2(L) ♦ XT2 ( K )* A A P (L MM X , K > 

00 15Q J= 1 » HZ 
XTl(J) = XT2(J> 

150 D2 ( J ) * 0 2 ( J ) ♦ <Z (J )- XT2 ( J ) ) **2 
I F ( .NOT.OUTPT) GO TO 195 
00 170 1=1, HZ 
Zm = Z(I)/CAUB(I> 

170 Ytl) = XT2< D/CALIBCII 
DO 191 1=1,4 
191 U (I ) =U2 ( I) *RAD 

IF(PLOTEM) WRITE (61 Y,Z,U, EXTRA 
I F < . NOT. PRINT ) GO TO 195 
I F (LI NE ,LT. 50) GO TO 190 
LINE = 0 

WRITE (3,1000 1 T I TLE , JUL IAN 
WRITE (3, 2004) (LABELS Cl >♦ 1*1, HZ) 

190 LINE = LINE+1 

WRITE (3, 113) IT, (Y(I) ,1 =1,MZ) 

195 OO 200 K= 1 , MU 
U1(K) = U2(K) 

200 CONTINUE 

EN 0 LOOPS 

WRITE (3,2002) 

CALL ASPIT(A) 

CALL ASPIT(B) 

£•,»,,»,,»»,»,*********»*»*»»•»*««*»*»** PUNCHED OUPUT AS OESIREO 
IF(. NOT . PUNCHO) GO TO 300 
CALL PLOP(A) 

call PLOPCR) 

30 0 IF( . NOT, PUNCH) GO TO 400 
DO 320 1=1,3 
00 310 J=i ,3 

310 A ( I , J ) = A CI,J)*C(I,J) 

00 320 J=l*5 

320 8 ( I , J ) = 8 U,J)*CC(I,J> 

A (5, 1 )=3. 

0 (5,1 ) = 3 * 

TYPE=AL AT 

IF( .NOT .LONG) GO TO 330 

type=alon 

C OETRIM AND CZ (GOOD ONLY FOR 2 OEGREE OF FREEDOM WITH NO EXTRA 

C CONTROLS.) 

R ( 2,5) =-( A (2,1) *ALP»B( 2,5) ) 79(2,1 ) 

8 <1,5)=B(1,5>*A tl,l)«ALP*8 (1,1 )*B (2,5 ) -WQS 
13 0 WRITE (2 , 2001) T YPE , (TIT IE ( I) , 1=1,9 ) , HA CH , ALP, PAR AM , CG 
CALL PLOP (A > 

CALL PLOPO ) 

CALL PLOP(AC) 

CALL PLOP(BC) 

h00 IF(.NOT.BIASKN) GO TO 209 

WRITE ( 3, 1 00 4) (LABELS <1 ) ,I=MXP1 ,MZ ) 

WRITE (3,100 3 ) (8IASDU ) , 1 = 1 ,MZM) 

209 DO 210 1=1, HZ 

XT1 ( I) =D2 ( I) /FLOAT(NPTT) 

02(1) =X T 1 m«DlCI*I> 

210 ERRSUM = ERRSUH f 02(1) 

WRITE (3,1001) ERRSUH 


OUTP1140 
OUTP1150 
OUTP1160 
OUTP1170 
OUTPllflO 
OUTP1190 
OUTP12U0 
OU TP 1 21 0 
OUTP1220 
OUTP1230 
OU T PI 2 40 
0UTP1250 
OUTP1260 
OUTP12 70 
OUTP1280 
OUTP1290 
OUTP13JO 
OUTP1310 
OUTP1320 
OU TP 1 3 30 
OUTP1340 
OUTP1350 
OU T P 1 360 
OU TP1370 
OU TP 1 3 80 
0UTP1390 
OU T PI 40 0 
OU TP 14 1 0 
OU TP 1 420 
OUTP1430 
OU T PI 440 
OU TP 1450 
OUTP1460 
OUTP1470 
OU TP 1 49 0 
OUTP1490 
OU T PI 50 0 
OU TP 1 5 10 
OUTP1520 
OUTP1530 
OUTP1540 
0UTP155D 
OUTP1560 
OUTP1570 
OU TP 1580 
OUTP1590 
OU T PI 60 0 
OUTP1610 
OUTP1620 
OUTP1630 
OUTP1640 
OU TP 165 0 
OU TP1660 
OU T PI 670 
OU T P 1 6 80 
OUTP1690 
OUTP1700 



APPENDIX A - Continued 



WRITE (3,100) 

OUTP1710 


WRITE C3t 10 5MXT1( I),I=1,MZ) 

OUTP1720 


WRITE (3,106) 

OUTP1730 


WRITE (3,105) (02 (I), I- 1 ,MZ) 

OUTP1740 


IFtNOITER.NE. 0) WRITE(3,108) (ERRVEC (I) ,1=1, NO I TER) , ERR SUM 

OUTP1750 


IF(ERRSUM,LT,PLTMAX ,OR. • NOT . PLOTE M) RETURN 

OUTP1760 

450 

WRITE (3, 1002) PLTMAX 

OUTP1770 


WRITE (3, 1000) TITLE *JUL IAN 

OUTP1780 


WRITE (3,2004) ( LABELS (I >, 1=1 ,MZ > 

OUTP1790 


PLOTEM=, FALSE. 

OUTP1800 


REWIND 7 

OUTP1810 


DO 500 1= 1 , NPTT 

OUTP1820 


READ (7) IT, Z,L, EXTRA 

OUTP1S30 


OO 460 J*i , 7 

OUTP1 840 

460 

Z (J ) = Z t J ) /CAL 19 (J ) 

OUTP1850 


DO 470 J= 1 » 4 

OUTP1860 

470 

U ( J) = U ( J ) *RAD 

OUTP1870 

50 C 

WRITE (3,113) I T , Z , U 

OUYP1880 

100 

FORMAT ( 7H ERRORS) 

OUTP1890 

10 5 

FORMAT ( IX , 11E12. 4) 

OUTP19DO 

10 6 

FORMAT { 16 H WEIGHTED ERRORS) 

OUTP1910 

108 

FORMAT (1HO,62X,6HERRORS/(1X ,13F13 .2) ) 

OUTP1920 

113 

FORMA T (?X *112 * 11F 10, 4) 

OUTP1930 

100C 

FORMAT (1H1, 26 X,2TA4, 13 X, A 10/) 

OUT PI 940 

1001 

FORMAT (90X,20HWEIGHTEO ERROR SUM =,E12.4) 

OUTP1950 

1002 

FORMAT ( 55H0DATA WILL NOT 9E PLOTTED BECAUSE THE ERROR SUM 

EXCEEDS, OUTP1960 


1003 
100 4 
200 0 

200 1 
2002 
200 U 
200 5 


2 4 H THE MAXIMUM P ERM I S SI B LE, El 0 . 2 / 
27H0 INPUT TIME HISTORY FOLLOWS) 
FORMAT C15H 1/ A R I ABLE BIAS ,4E12,4) 

FORMA T( 8HQ DEGREES ,7X, 4 A12) 


OU TP1970 
OUTP1980 
OUTP1990 
OU TP200 0 


FORMAT ( 1H0 ,10X ,12HFI NAL V AL UES , 5X , 6 HMACH = , F6 . 3 , 5X , 7HA LPHA = , F7 .2 , OU TP2 0 1 0 


5X , 7HPAR A M = , FI 0 . 4 1 5 X , 4HCG = ,F6.3) 
FORMAT ( A4,1X, 6 A 4. A3, 4F10.3) 

FORMA T{ 2 7H FINAL OIMEN SIONA L MATRICES) 
FORMAT (1HO,5X,4HTIM£,10X,7A10/) 
FOPMAT(23H OUTPUT TIME HISTORY) 

RETURN 

END 


OUTP2020 
OUTP2030 
OUTP20 40 
OUTP2050 
OUTP2060 
OUTP2070 
OUTP2080 



APPENDIX A - Continued 


SUBROUTINE THPLOT 


Description: Subroutine THPLOT plots measured and computed time histories 

of observations and measured time histories of controls and extra signals . 

Programing notes: The comment cards show how to decrease the run time in 
some instances at the cost of some storage. At present, two time histories at a time 
are read from the disk and plotted. Dimensions may be increased as indicated to 
permit more than two to be handled simultaneously, resulting in fewer disk accesses. 
With reasonably efficient disk units , the saving is not a significant portion of the 
program execution time. The limitation of 1000 points per maneuver arises from 
the dimensioning of X, XX, XXX and TIME as 1002. (The extra two locations are used 
for scaling information.) Program size may be reduced or the permissible maneuver 
length increased by changing this value . The special treatment of the title (plotting 
groups of four characters in a DO loop instead of using only one call to SYMBOL) is 
needed for compatibility with machines that use different word lengths . 
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APPENDIX A — Continued 


Subroutine listing: 


c 

c 

c 



SUBROUTINE THPLOT (FIRST) 
PLOTS TIME HISTORIES 


COMMON /BUF/ B UFFER, YO , THGT 

COMMON /COM/ NCASE ,M2, NPTS ,NPT T , SPS , PR INT , LONG , LA TR, PL0TEM,N01 , 
DITOL.OIRLX, NAPR, WFAC, WMAPR, ERRSUM, LAST, RATIO 
COMMON / T CPLOT/ XMAX,XMIN,DCMAX,DCMIN,TIMESC,NC 
COMMON /HEAONG/ L ABE LS , T I TL E , J ULI A N 
COMMON /LINCOM/ HGT 

DIMENSION OCMAX < A ) , 3 CHIN< 8) , XM £X ( 7 ) , XM IN < 7 > ,NPTS < 15 > , T ITLE <2 0 > , 
BUFFER ( 1024), TIME C1002U XXX ( 10 02, 2) ,X (1002, 1) , XX (10 02, 1 ), 
7(7) , 0C(8),ZZ(7), LA9ELS(15>,M8C0(3G) 

LOGICAL LONG, FIRST, LAST 

equivalence cx <1,1 ), XXX (1,1)), (XX (1,1 ». xxx a ,2)) 

DflTfl MBC0/3HDEG,SH0/S,3HF/S,3H0EG,3HG » S , 4H 0/S2 ,3 HG • S, 

5*3H0EG,2HFT ,1H , 3HPSF, 3HCEG, 2*3HC/S, 3H0EG, 3HG ' S , 2*4HD/ S2 , 
5*3H0EG,4HFT/S, 1H ,3HPSF/ 

NCH=1 


NBUF = 10 24 
TIMSC2=TIMESC* 


FOR A DIRECT DECREASE IN RUN TIME AT THE COST OF 
STORAGE, NCH MAY BE INCREASED (UP TO 7) , THEN THE 
FOLLOWING DIMENSIONS AND EQUIVALENCE MUST BE 
CHANGED. 

DIMENSION X (1002 ,NCH) ,XX (10 0 2, NCH) , XXX (1002, 2* NCH) 
EQUIVALENCE ( XX ( 1, 1) , XXX (1 ,NCHf 1 ) ) 


X0 = 5 ♦ 


HGT=, 01 


N I D - 0 


TSI = SPS*T IMSC 2 
ITHIN=-MAX1 (TSI/2 0., 1. ) 

REWINO 8 

IF( . NOT. FIRST) GO TO 10 
CALL PLOTS( BUFFER, NBUF ,13) 

CALL FACTOR (RA TIC) 

YO = 1 2 • 

IF<RA TIO. EQ. 1 . » Y0=9 . 5 
T HGT = ,12/ RATIO 

LAPELS A NO TITLES 

10 Y75-Y0+.375 

IF (LONG) GO TO BO 
GO 20 1=1,15 
20 MBCO(I)=MBCO(I *15) 

50 DO 200 1=1, NCASE 
CALL PLOT ( XO, 0 . , -3) 

CALL SYMBOL (-1 . 5, YO, TH GT , T I T LE ( 1 ) ,2 70 . ,4) 

DO 55 J=2,2C 

55 CALL SYM90L<-1 .5,999 THGT, TITLE(J) , 270., 4) 
IF(NCASE, EQ. 1 ) GO TO 57 

CALL SYMBOL(-2.,YO,THGT,8HMANEUVER,270.,8> 

Y015= YO-1 . 5 

CALL NUMBER (-2., Y015,T HGT, FLOAT(I ), 270., -11 
57 CALL PLTDAT(-2.5,YO) 

FORM TIME VECTOR AND PLOT TIME AXIS 

NOPTS = NPTS (I ) 

NP1=N0PTSM 


THPL 

0 

THPL 

10 

THPL 

20 

THPL 

30 

THPL 

40 

THPL 

5 C 

THPL 

60 

THPL 

70 

THPL 

80 

THPL 

90 

THPL 

100 

THPL 

110 

THPL 

120 

THPL 

130 

THPL 

140 

THPL 

150 

TH PL 

160 

THPL 

170 

THPL 

180 

THPL 

190 

THPL 

20 0 

THPL 

210 

THPL 

220 

THPL 

230 

THPL 

240 

THPL 

250 

THPL 

260 

THPL 

270 

THPL 

280 

TH PL 

290 

THPL 

30 0 

THPL 

31 C 

THPL 

320 

THPL 

330 

THPL 

340 

THPL 

350 

THPL 

360 

THPL 

370 

THPL 

380 

THPL 

390 

THPL 

400 

THPL 

410 

THPL 

420 

THPL 

430 

THPL 

440 

THPL 

4 5 0 

TH°L 

460 

THPL 

470 

THPL 

480 

THPL 

490 

THPL 

500 

THPL 

510 

THPL 

520 

THPL 

530 

THPL 

540 


THPL 5 50 
THPL 560 
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NP2=NOPTS+2 

00 60 J=1,N0PTS 
60 T IME t J) = J 

T I ME ( NPi ) = YO* TSt+1* 

T IME (NP2) =-TSI 
TLN= FLOAT ( NOPTS) /TSI 

CALL AX IS (0. .YC.4HTIME .-4.TLN.270 . . 0 . , TIMSC2) 

X 0RG= • 5 

»«»***»»»*«**»»*** p L0T STATE TIME HISTORIES 

1 CHAN 0 = 0 
nchan=nch 

DO 120 <=1*7 
IF (< .EQ . 1> GO TO 90 
I CH A NO - I CH A NO ♦KCHAN 
I F { ICHANO +NCHAK .LE.MZ) GO TO 70 
IFtlCHANO .GE.MZ) GO TO 125 
N CHAN = MZ - ICHANO 
70 REWIND 8 

I F ( I .EQ* 1) GG TO 90 
DO 80 J=1*NIP 
8 C REA D t8 ) 

90 DO 130 J=t*NOPTS 
READ (8) ZZ.ZiOC 
DO 103 L= 1 ♦ NCH AN 
X <J,L>=ZtL+ICHANC > 

100 XXt J,L>=ZZ< L*ICHAN0) 

DO 110 L=1*NCHAN 
ICHAN = IC HANO *-L 

SCAL =( XMAXt ICHAN) -XHI N(ICHAN) >*,5 
XMNsXMIN t ICHAN ) 

IFtSCAL .NE.Q.l GO TO 105 

CALL SCALES (X <1 ,L) *2 »• NOPTS *. FALSE. > 

CALL SCALES (XX <1.L)*2. *NOPTS» . FALSE.* 
SCAL=AMAX1(XX(NP2.L1.X (NP2*LD 
IF(SCAL .E0.-999. ) GO TO 110 
X MN= X (NP1 * L ) 

IF(XX(NP2,L).GT.XCNC2,L)) XMN= XX (NP 1* L ) 

10 5 CALL SYM90L (XORGf 1 . . Y7 5. . 1 25 . L A9E LS (ICHAN 1 . 0 . 4 ) 
CALL AXIS (XORG* YO.M0CO (ICHAN1 * 4* 2. * 3. * >MN * S CAL I 
X ( NP1 1 L > = XMN-XORG*SC AL 
XX ( N P 1 * L ) =X ( N P 1 *L ) 

X (NP2, L) =SCA L 
XX(NP2,L> =S C A L 

CALL LINES (X <1,U ,TIME*NOPTS*l, C , 1 > 

CALL LINES(XX(1,L), TIME. NOPTS. ITHlN,-2 ,75t 
XORG= X0RGf2. 5 
110 CONTINUE 
120 CONTINUE 

« plot CONTROL TIME HISTORIES 

125 N CH2 = NC HA N* 2 

IF ( NC H2 #G T .NC ) NCH2=NC 
I CH AN 3 = -NCH? 

DO 160 <=1.4 

ICHAN3= ICHANO * NC H2 

IF( ICHANO ,GE. NC) GO TO 170 

I F (I CHAN0 +NCH2 .GT . NCt NCH2 = NC- ICHAN: 

REMIND 8 


TH PL 5 70 
THPL 580 
TH PL 590 
THPL 600 
THPL 610 
THPL 620 
THPL 630 
THPL 640 
THPL 650 
THPL 660 
THPL 670 
THPL 680 
THPL 690 
THPL 700 
THPL 710 
THPL 720 
THPL 730 
THPL 740 
THPL 750 
THPL 760 
THPL 770 
THPL 760 
THPL 790 
THPL 800 
THPL 810 
THPL 820 
THPL 830 
THPL 840 
THPL 850 
THPL 860 
THPL 870 
THPL 880 
THPL 890 
THPL 903 
THPL 910 
THPL 920 
THPL 930 
THPL 940 
THPL 95 C 
THPL 960 
THPL 970 
THPL 980 
THPL 990 
THPL1000 
THPL1Q10 
TH PL 1 0 20 
THPL103G 
T H PL 1 0 40 
TH PL 1 0 50 
THPL1060 
THPL1370 
THPL10 80 
THPL1090 
THPL1100 
THPL1110 
THPL 1120 
TH °L1 1 3C 



APPENDIX A - Continued 



IF(I , EQ. 1) GO TO 140 


TH PL 1 140 


DO 130 J= 1 , NI P 


THPL115Q 

130 

READ (6) 


THPL1160 

140 

00 150 J= 1 ,NOP TS 


TH PL 1 1 70 


READ (8) ZZ.Z.OC 


THPL1180 


DO 150 L=1,NCH2 


TH PL 1 190 

150 

XXX( J,L>=DC(L + ICHAN3) 


THPL120Q 


DO 163 L s 1 » NC H2 


TH PL 1 21 0 


J=L+ICHAN0 


THPL122Q 


H=J *7 


THPL1230 


SCAL = ( DCMAX ( J 1 -DC MI N ( J I ) * . 5 


THPL1240 


DCMN = OCMIN <J> 


THPL1250 


X F ( SCAL • NE *0 • ) GO TO 155 


THPL1260 


CALL SCALES* XXX (1 ,L> , 2 ♦ , NOPTS , . TR UE . > 


TH PL 1 2 70 


IF (XXX <NP2,L) . EQ.-999. > GO TO 16C 


THPL1290 


IF(XXX(NP2,L> .GE. .4 .OR. J.EQ.7) GO TO 

153 

THPL1290 


XXXCNP2.L) =10 . 


TH PL1330 


XXX <NPi ,L)=-10 . 


THPL131Q 

153 

SCAL=XXX(NP2,L> 


THPL1320 


OCHN= XX X <NP1,LI 


THPL1330 

155 

CALL SYM90L ( XCRG+1. , Y 75 , . 1 25, LABELSt H 

1,3.4) 

THPL1340 


CALL AXIS <XORG,YO,M0CO (M> ,4,2. .0. .DCMN 

.SCAL) 

THPL1 350 


XXX (NPl ,L>=DCHN-XORG*SCAL 


TH PL 1 3 60 


XXX (NP2.L ) =SC A L 


TH PL 1 3 70 


CALL LINESCXXX (1,LI ♦ TI HE.NOPTS ,1, 0,1) 


THPL1380 


X0RG=X0RG*2, 5 


TH PL1390 

160 

C ONTINUE 


TH PL 140 0 

170 

N I P= N I P* N OPTS 


THPL1410 


X 0 = XORG + 5 • 


TH PL 1 42 0 

20 0 

CONTI NUE 


THPL1430 


CALL PLOT (XO,0 . ,-3> 


TH PL 1 440 


RETURN 


TH PL 1 450 


ENO 


TH PL 1460 
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APPENDIX A - Continued 
SUBROUTINE APRPLT 


Description: Subroutine APRPLT plots the variation of the derivatives with 

a priori weighting. It may be used when the a priori variation option is active. 
The information to be plotted is in the matrix STORE . 


Subroutine listing: 


C 

C 

C 


SUBROUTINE APRPLT (STORE* AA,BD,NAPR* WHOLO , WF AC , LONG , F I RST .LAS T, 
RATIO) 

PLOTS DERIVATIVES FOR APRIORI VARIATIOF 

COMMON /BUF/ BUFFER . YO . THGT 
COMMON/HFAQNG/ LABELS. TITLE, JULIAN 
COMMON /LINCOM/ HGT 

LOGICAL AA (5.4 ) .BB(5.8 ), LONG, FIRST, LAST 

REAL ST0RE(1m, 271 , ALABLO (3, 3).ALA8LA(3,3) ,0LABLO(3,41,BLABLA (3,4) 
BUFFER<102M,WMAPft(141 , LABELS! 15 ),TITLE(20> 

DATA ALABLA/2HYB.2HLB, 2HNQ, 2 HYP, 2HL P, 2 FNP, 2 HYR, 2HLR. 2HNR/, BL ABLA/ 
3HY0A.3HL0A, 3HN0A , 3HYDR.3HLDR, 3HN0R.4HY0C1.4H LOCI .4HN0C1, 
4HYDC2.4HL0C2.4HNDC2/ , ALA ELO/2 HZ A ,2HMA , 2HXA, 2 HZ Q, 2HMQ ,2 HXQ, 

- 2HZU,2HMU,2HXU/,BLABL0/3H7OE.3HMDE»3HX0E,3H7DC,3HM0C»3MXDC, 

4H7DC1.4HMDC1.4HXDC1, 4H7DC2, 4HMDC2.4HX0C2/ 

HGT - * 0 7 
NBUF-1C24 
J K=Q 

NPT=NAPRf 1 
NPT1=NPT+1 
NPT2 = NPT f 2 

IF{ .NOT .FIRST) GO TO 5 
CALL PLOTSfOUFFER.NBUF ,13) 

CALL FACTOR(RATIO) 

Y 0= 12 • 

IF(RATIO. EO. 1 . > YO-9 • 5 
THG T= .12/RATIO 
5 CALL PLOT !G . , YC,- 31 

CALL SYMBOL (-1.5,0., THGT, TITLE (1) ,270 . ,41 
OO 7 J= 2 , 29 

7 CALL SYMR0L<-1 . 5,999. , THGT, TITLE(J) ,279. ,4) 

CALL PLTOATC-4 . , .5) 

WMAPR (1 )= -1 . 

00 10 I=1,NAPR 
10 HMAPR ( I+l 1 =WMAFR( I>-1. 

WMAPRI KPT 1 ) =0 , 

WMAPR I NP T 2 ) = 1 * 

CALL NUMBER! 5 ,-l.» .1 ,0 . ,27 0. ,0) 

Y=-. 75 

I F (NAPR.LT. 2 ) GO TO 220 
N APR 1=N APR-1 
VI = ‘H H 0 L C 

00 210 1=1, NAP FI 

Y = Y-l , 

CALL NUMBER (- .5 ,y ,,1 ,W , 270 , , 31 
210 W=W*WFAC 
7 ZQ CONTINUE 

CALL SY MB OL !-l.,Y/2,,. 125, 5H WMAPR, 270 .,5) 

00 20 0 1 = 1,3 
0 0 I'J 5 J=l,4 
IF (Bl (I , J 1 1 GO TC 10 0 
JK= JK* 1 

CALL SCALES (STCRt (1 , JK 1 ,3 . , NPT..F AL SE . 1 
OER=BLABL A(I, J) 

IF(LONG) 0ER = BLABL0< I, J) 

CALL AX IS (3. ,0 . ,0ER, 4 , 3 . , 0 . , S TOR E ! NP T 1 , J K > , S TO R t < NPT 2 , JK >> 


APRP 

0 

APRP 

10 

APRP 

20 

APRP 

30 

APRP 

40 

APRP 

50 

APRP 

60 

APRP 

70 

APRP 

80 

i AP R P 

90 

APRP 

100 

APRP 

110 

APRP 

120 

APRP 

130 

APRP 

140 

APRP 

150 

APRP 

160 

APRP 

170 

AP RP 

180 

APRP 

190 

APRP 

200 

APRP 

210 

APRP 

220 

APRP 

230 

APRP 

240 

APRP 

250 

APRP 

260 

APRP 

27 0 

AP RP 

280 

APRP 

290 

APRP 

300 

APRP 

310 

APRP 

320 

APRP 

330 

APRP 

340 

APRP 

350 

APRP 

360 

APRP 

370 

APRP 

380 

APRP 

39 0 

APRP 

4J3 

APRP 

410 

APRP 

420 

APRP 

430 

APRP 

440 

APRP 

450 

APRP 

460 

APRP 

470 

AP RP 

480 

APRP 

490 

APRP 

500 

APRP 

510 


A p R P 520 
APRP 53G 
APRP 540 
APRP 550 
APRP 560 
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CALL LINES (STORE (If JK> ,HMAPR # NPT* 1, 1, 1) 

CALL PLOT (3.5, 0. , -3) 

100 CONTINUE 

DO 2 : 0 J= 1, 3 
I F C A A < I , J > > 00 TO 200 
JK- JK fi 

CALL SCALES (STORE (1, JK > , 3. , NPT,. FALSE, ) 

DER=ALAflLA (I , J) 

IF(LONG) 0£ft=AlABL0( I, J) 

CALL AXIS (3. , C .,DER, 4 , 3 . , 0 . , S TORE ( NP T1 , JK I , STORE ( NP T2 , JK ) ) 
CALL LINES (STORE! i,JK) ,WMAPR , NPT, 1, 1, 1 > 

CALL PLOT (3. 5*0 •, -3) 

200 CONTINUE 

WMAPR (NPT )=WMAFR(NPT1) 

WMAPR ( NPT 1 J = WMAPe (NPT2 > 

NPT2=NPT1 
NPT1=NPT 
NPT=N APR 
JK= JK+1 

CALL SCALES (STORE (1, JK I , 3 . , NPT , . F AL SE . ) 

CALL AXIS CO • , 0 . ,5HFRR0R»5, 3.«Q«,STORE(NPTl f JK> , ST ORE < NPT 2 , JK ) > 
CALL LINE S (STOREU »JKJ ,HMAPR,NPT, 1, 1,1) 

CALL PLOT (5« ,-12. ,-J) 

RETURN 

ENO 


APRP 570 
APRP 590 
APRP 590 
APRP 600 
APRP 610 
APRP 620 
APRP 630 
APRP 640 
APRP 650 
APRP 660 
APRP 670 
APRP 630 
APRP 690 
APRP 70 0 
APRP 710 
APRP 720 
APRP 730 
APPP 740 
APRP 750 
APRP 760 
APPP 770 
APRP 7 30 
APRP 790 
APRP 303 
APRP 810 
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APPENDIX A - Continued 
SUBROUTINE MATLD 


Description: Subroutine MATLD reads matrices from cards and identifies the 

matrices . 

Programing notes: ABC contains the names of the matrices that may be read in . 
The program compares the name read with elements of ABC to determine which 
matrix is being input. The characters END are taken as an indication that this is 
the last case; any other word not identifiable as a valid matrix name signals the end 
of a case, implying more cases to follow . The values of ILD and ABC indicate the 
status of the matrix input . 

Subroutine listing: 




SUBROUTINE MA TLO ( MATRX ,A9C * ILO > 

MATL 

0 

c 



HA TL 

10 

c 


LOADS IN MATRICES - DETERMINES WHICH MATRIX IS BEING READ 

MATL 

20 

c 


PASSES STATUS INFORMATION BACK TO NR EDI T 

MATL 

30 

c 



MATL 

40 



REAL MATRX (8, 8 ) , ARC< 12 ) 

MATL 

50 



DATA EN0/3HEN0/ 

MA TL 

60 



I LD=- 999 

MATL 

70 



READ (1,1000) N AT RX( 8, 3) , II »JJ 

MATL 

80 



IF1MATRX ( 8,3) .EQ.ENO) RETURN 

MA TL 

90 



00 10 1=1,12 

MATL 

100 



IF(MATRX(8,3I *KE« ABC ( I ) ) GO TO 10 

MATL 

110 



A BC ( I ) = - 9 9999 • 

MA TL 

120 



I LD= I 

MATL 

130 



GO TO 20 

MA TL 

140 


1 0 

CONTINUE 

MATL 

150 



I L0 = 9 99 

MA TL 

160 



RETURN 

MATL 

170 


20 

MATRX (8 , 1 ) = 1 1 

MATL 

180 



IF(JJ.NE.O) GO TO 25 

MA TL 

190 

c 


oiagonal matrix 

MATL 

200 



ILD=-IL0 

MATL 

210 



MATRX (5,2)=MATRX< 8,1) 

MA TL 

220 



CALL AZOT(MATRX) 

MATL 

230 



READ <1,1001) (MATRX (I , I) , 1 = 1, II) 

MATL 

2 40 



RETURN 

MATL 

250 

c 


FULL MATRIX 

MATL 

260 


25 

MATRX (8 , 2 ) =JJ 

MATL 

270 



DO 30 1=1,11 

MATL 

280 


3 G 

READ (1,1001) (MATRX <1 ,J) , J = l, JJ) 

MA TL 

290 



RETURN 

MATL 

300 


1030 

FORMAT < A4,4X, 12,110) 

MATL 

310 


100 1 

FORMA T (6F10.4) 

MA TL 

320 



END 

MATL 

330 
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SUBROUTINE MAK 


Description: Subroutine MAK moves an input matrix from its temporary location 
in MATRX to its proper location in X . Subroutines MATLD and EDIT have deter- 
mined what the proper location is for each matrix . 

Subroutine listing: 


SUBROUTINE: MAK (X, MATRX, MAX) 

MAK 

0 

REAL X(MAX,1) , MATRXI8, 8) 

MAK 

1G 

CALL ASPIT(MATRX) 

MAK 

20 

X (MAX , 3 > = MAT RX (8,31 

MAK 

30 

X (MAX,1)=MATRX(8,1) 

MAK 

40 

X (MAX, 2 » = MATRX (8,2) 

MAK 

50 

II=MATRX<8,1> 

MAK 

60 

JJ=MATRX(8,2) 

MAK 

70 

00 10 1*1,11 

MAK 

80 

00 10 J=1,JJ 

MAK 

90 

10 X (I, J) = MATRX ( I , J> 

MAK 

100 

RETURN 

MA K 

110 

END 

MAK 

120 
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SUBROUTINE DERIV 


Description: Subroutine DERIV prints dimensional and nondimensional deriva 

tives with labels. Arrays E and EE contain the characters " " or "*" to indicate, 
when printed, that a particular derivative is either varying or fixed, respectively 

Subroutine listing: 


c 


c 


c 


SUBROUTINE DERIV(LONG) OERI 

PRINT DIMENSIONAL AND NON-DIMENSIONAL DERIVATIVES DERI 

COMMON /MEAONG/ L ABE LS * T I TLEt JUL I AN DERI 

COMMON /MATRIX/ A , B, A A t BO , A P , BF ,0 1 , PI OERI 

COMMON /O I MEN S / C ,CC , E , EE , W QS, THE TN DERI 

DIMENSION C(3,3),CC(3*5)*A(5,4l,R(5,8),AP(4,4»,AA{5,4),BR(5* 8) , DERI 
QP (4, 8> , AN! 3,4» ,0N( 3 , 51 ,E < 3* 3J *EE (3,5 J ,D1 < 8 *7 1 DERI 

PEAL R I ( 5 * 4 1 »LA8FLS(15 1,TITLE(20) ,LAB(3J,LONlABm,LATLAB<3> OERI 

logical long o^ri 

DATA F/1H /,G/1HC/,L AT LAB/1HY, 1 H L , 1 HN / , LONL AB /I HN , 1HM , 1 H A / DERI 

DO iu 1=1 ,3 °ERI 

L A B ( I I =L A TLAB ( I ) OERI 

DO 5 J= 1 » 4 OERI 

5 AN(I«JT=A(I,JT OERI 

DO 10 J = 1 , 5 OERI 

1C BN 1 1 , J > =B (I » J > OERI 

I F t . NOT . LONG ) GO TO 20 DERI 

DO 15 I = 1 » 3 OERI 

LA8<I »=LCNIAP(II OERI 

AN(1*I)=-ANC1,I) 

15 AN (3, I 1 = - A N ( 3 , I > 0Ef?I 

00 17 1=1,5 0ERI 

0N(1, II =-BN(l ,1 1 OERI 

17 QN (3, I ) = -8N (I , I) OERI 

WRITE DIMENSIONAL DERIVATIVES OERI 

20 WR ITE (3,107) OERI 

WRITE (3,10 61 (LABELS! I) , 1= 1 , 3 J , ( LA 8E LS < J) , J= 8, 1 1 ) DERI 

WRITE! 3,103) OERI 

- ( F , L A B ( I 1, ( AN < I , J) ,E (I , J 1 , J= 1 , 3 ) , (BN (I, J) ,EE(I,J),J-1*5> ,1 = 1,3) DERI 
NON-DIMENSIONAL I/E OERI 

DO 29 I = 1,3 OERI 

DO 25 J = 1 ,5 OERI 

25 BN(I»J1=BN(I ,J)*CC(I,J) OERI 

DO 29 J = 1 ,3 OE RI 

29 AN ( I , J ) = A N (I , J ) *C < I, J J OERI 

I F ( .NOT. LONG ) AN( 1,21=0* OERI 

WRITE (3 ,1011 OERI 

WRITE (3, 1061 (LARELS(I) , 1 = 1 , 3 ) ♦ ( LA BE LS ( J» , J= 8 , 1 1 ) OERI 

WRITE(3,103) OERI 

(G, LABI IT , l G N ( I , J ) ,E (I, J) »J=1 ,3 > , (BN(I,JJ,EE<I,J),J=1*5) ,1 = 1,31 OERI 
WRITE ( 3, 10 HI OERI 

101 FORMAT ( 48HQN0N-DIMFNSI 0NAL DERIVATIVES / DEG (ROTARY /RADII DERI 

103 FORMAT ( <1X,2A1 ,8 (F14.6 , Al, 1 X) )> OERI 

10 6 FORMAT { 71 11 X , A 6 ) , 11X,7HDELT A-01 OERI 

107 FORMAT(39HOOIMENSIONAL DERIVATIVES / SEC / SEC**2) OERI 

108 FORMAT C/40X, 50 F ( * ) INDICATES DERIVATIVE HELD FIXED DURING M A TCH JOE R I 

RFTURN OERI 

END 0ERI 


0 

10 
2 G 
30 
40 
50 
60 
70 
80 
90 
10C 
110 
120 
130 
140 
150 
160 
170 
180 
190 

2 JO 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
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350 
360 
370 
380 
390 
4C0 
41C 
420 
430 
440 
450 
460 
470 
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APPENDIX A - Continued 
SUBROUTINE CRAMER 


Description: Subroutine CRAMER computes confidence levels based on 

Cramer-Rao bounds . 


Programing notes: The comment cards trace the steps of the subroutine. Note 

the manipulation of the SUM matrix required to store the second gradient (Hessian) 
with the a priori terms included, while also using the second gradient without the 
a priori terms for the confidence level computation. 

Subroutine listing: 




SUBROUTINE CRAMER (SUM, APRO, MU, MZtERRSUM) 



CRAM 

0 

c 





CRAM 

10 

c 


COMPUTES CRAMER RAO BOUNDS (CONFIDENCE LEVELS) 


CRAM 

20 

c 





CRAM 

30 



COMMON / A L LO I M / max, MIX 



CRAM 

40 



COMMON /MATRIX/ A , B , AA , BB , A P , B P , D 1 , PI 



CRAM 

50 



COMMON /ROUTH/ PUNCH , PAR AM , M A CH , AL P , CG, 

AC t BC 


CR A M 

60 



DIMENSION A(5,4),0(5»8 )»AA(5,4>,BB(5,8)» 

AP(4,4),3P(4 

, 8) ,D1 (8 ,7) , 

CRAM 

70 



SUM ( 35,35>,AC(5,4),BC(5,8),APRD<35> 

,RI (5,4) 


CRAM 

80 



LOGICAL AA,DQ, PUNCH 



CRAM 

90 



DATA ACL/2MAC/ ,0CL/2 HBC/ 



CR AM 

100 



AC(5 ,1 »=3 . 



CRAM 

110 



A C ( 5i 2) =3, 



CR AM 

120 



BC (5 , U = 3 . 



CRAM 

130 



DC (5,2>=5. 



CRAM 

140 



AC ( 5 ? 3) = A CL 



CRAM 

150 



BC (5, 3) =BCL 



CRAM 

160 



JKMM1=SUM (MAX, 1 > 



CRAM 

170 



JK2= JKMMI-1 



CRAM 

180 

c 

SUBTRACT OUT APRIORI CONTRIBUTION TO 

HESSIAN 

CRAM 

19C 

c 

¥ ¥¥ ¥ 



CRAM 

20 0 

c 

¥ * * * 


TRIANGULAR) 

SINCE LAST 

CRAM 

210 

c ¥¥¥¥¥¥ ¥ USE Hfls BEJEN made of it< 



CRAM 

220 



T EMP= SUM ( JKMM1, JKMM1) 



CRAM 

230 



SUM( JKMM1 , JKMM1 ) = SUM (JKMM1 , JKMMlt -APR D (JKMM1) 


CRAM 

2*0 



APRO ( JK MM 1 ) = T E M P 



CRAM 

25 0 



DO 10 I =1 , JK2 



CRAM 

260 



T EMP= SUM (1,1) 



CRAM 

273 



SUM (I , I > = SUM (I, I) -A PRD (I > 



CR AM 

28C 



APRO ( I ) = TEMP 



CRAM 

290 



IP1=I +1 



CRAM 

300 



DO 10 J=IP1,JKMM1 



CRAM 

310 



TEMP=SUM( J,I) 



CRAM 

3 2 G 



SUM (J ,1 )=SUM (J,I)-SUM( I , J ) 



CRAM 

330 


10 

SUM ( I , J)= TEMP 



CRAM 

340 

c 

¥ ¥¥ ¥ 


OF INVERSE 


CR AM 

350 



CALL OIAGIN(SUM) 



CRAM 

360 

c 

¥ ¥ ¥ ¥ 




CRAM 

370 



WTS = 0,0 



CRAM 

3B0 



00 30029 I = i ,M7 



CRAM 

390 



IF (01 (I, I KNE.Q.O) WTS = WTS ♦ 1,0 



CRAM 

400 

3002 9 

CONTINUE 



CRAM 

410 



COEFF = ERRSUM / HTS 



CRAM 

420 



L= 0 



cram 

430 



DO 71 1=1,3 



CRAM 

440 



DO 60 J=1,MU 



CRAM 

450 



BC ( I » J) = 0 . 



CRAM 

460 



IF ( BB ( I, J) ) GO TO 60 



CRAM 

470 



L=L + 1 



CRAM 

480 



BClIi J)=SQRT (ABSC SUM (L ,L) ) *COEFF| 



CRAM 

490 


60 

CONTINUE 



CRAM 

500 



DO 7C J=1 , 3 



CRAM 

510 



A C ( I , J ) =0 . 



CRAM 

520 



I F ( A A (I ,J ) ) GO TO 70 



CRAM 

530 



L= L * 1 



CRAM 

540 



ACC It J) =SQRT ( AeS(SUM(L ,L>)*C0EFF) 



CRAM 

550 


70 

CONTINUE 



CRAM 

560 
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APPENDIX A — Continued 


I F ( . NOT • A A (I * 4 ) > L= L ♦ 1 
71 CONTINUE 

RESTORE COMPLETE HESSIAN TO LOWER TRIANGULAR PART 
SUM t J<MM1 * JKMM 1 > = APR 0< JKMM 1) 

00 80 1=1, JK? 

SUM (I ,1 ) = APRO Cl) 

IP1=I*1 

00 8 C J= I PI , JKMM1 
80 SUM(JfI)=SUM(I*J) 

RETURN 

ENO 


CRAM 570 
CRAM 580 
CRAM 590 
CRAM 630 
CRAM 610 
CRAM 620 
CRAM 630 
CRAM 6<tQ 
CRAM 650 
CRAM 660 
CRAM 670 
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APPENDIX A - Continued 
SUBROUTINE AEAT 


Description: 
series expansion 


Subroutine AEAT computes e 


AAt 


and 



At 

e 


dr using the 


Taylor 


Programing notes: The computational method used when NEAT ^ 0 is described 

in the NAMELIST option NEAT (item (26) , p. 15) . The two matrices desired are 
returned as PHI and APHI. A2 and A3 are temporary scratch storage. 

Subroutine listing: 


SUBROUTINE AE A T t A , TT ,P HI , APHI , A 2, A3 
COMHON /ALLDIM/ MAX* Hi X 
01 MEN SI ON A(11 * PH 1(1) , A? ( II ,APH (1) 
MAX 2 = MAX * 2 

I I=A (MAX} 

PHI ( MAXI = A(MAX ) 

PHI t M AX 2 I * A ( M A X ) 

T* TT/ ( 2 * * *NEA T ) 

CALL AZOTfPHI) 

CALL AMAKE(APHI,PHI) 

M 1= - M A X 

00 1 I = 1,11 

M I=MI ♦MAX 

PHI (M I ♦ I) =1. 

1 CONTINUE 

CALL AMAKE <A2,PHI) 

G = 1.0 
00 2 1=1,13 
BB = I 
G = G*T/BB 

CALL AA00 11. * APHI tG» A2 , APH1 1 
CALL AMULT (A, A2, A3) 

CALL AM AKE ( A2 » A 3) 

CALL AA00 <1. , PHI,G*A2, PHI ) 

2 CONTINUE 

IF(NEAT.EQ.O) RETURN 
00 20 1 = 1 , NEAT 
CALL A M A KE < A 2 , FHI ) 

CALL AMULT(A2,A2,PHI) 

MI=-MAX 
00 10 J=l, II 
MI = MI 4-MAX 

10 A2 < M I ♦ J ) = A 2 ( M I ♦ J 1 ♦ 

CALL AMULT (A2, APHI, A3) 

CALL AMAKE (APHI , A 3> 

20 CONTINUE 
RETURN 
END 


NEAT) 

AEAT 

0 


AEAT 

10 

A3 (1) 

AEAT 

20 


AEAT 

30 


AEAT 

40 


AE AT 

50 


AEAT 

60 


AE AT 

70 


AE AT 

80 


AEAT 

90 


AEAT 

110 


AEAT 

120 


AE AT 

130 


AEAT 

140 


AEAT 

150 


AEAT 

160 


AEAT 

170 


AEAT 

180 


AEAT 

190 


AEAT 

200 


AEAT 

210 


AEAT 

220 


AEAT 

230 


AE AT 

240 


AEAT 

250 


AE AT 

260 


AEAT 

270 


AE AT 

230 


AEAT 

290 


AEAT 

300 


AEAT 

310 


AEAT 

320 


AEAT 

330 


AEAT 

3 40 


AEAT 

350 


AE AT 

360 


AEAT 

370 


AEAT 

390 


77 



APPENDIX A — Continued 


SUBROUTINE AMULT 


Description: Subroutine AMULT computes C = A*B . The quantity 

the same matrix as either A or B . 

Subroutine listing': 


SUBROUTINE AMULT (A t 9*C ) 

AMUL 

0 

COMMON /ALLOIM/ MAX,MIX 

AMUL 

10 

REAL A (1) ,B(1> «C( 1) 

AMUL 

20 

MAX2=MAX*2 

AMUL 

30 

M IX ?= MI X* 2 

AMUL 

40 

1 1 = A ( MAX) 

AMUL 

50 

c (MAX 1= A (MAX ) 

AMUL 

60 

JJ=A (MAX2 ) 

AMUL 

70 

KK=B( MIX2 J 

AMUL 

60 

C (MAX 2) = 8 ( MIX 2 ) 

AMUL 

90 

JE = ( J J-l> *MAX 

AMUL 

too 

KE = ( <<- 1 ) * MA X 

AMUL 

110 

DO 20 1=1*11 

AMUL 

120 

K EN0= KE * I 

AMUL 

130 

JEND = JE ♦ I 

AMUL 

140 

L = 1 

AMUL 

150 

00 2u K= I * KENO » MAX 

AMUL 

160 

C ( Kl = 0. 

AMUL 

170 

J B= L 

AMUL 

180 

DO 10 J= I * JEND » MA X 

AMUL 

190 

C ( K) =A( JI *B( JB> +C ( K) 

AMUL 

20 Q 

J B- J3«- 1 

AMUL 

210 

L=L+MIX 

AMUL 

220 

RETURN 

AMUL 

230 

ENO 

AMUL 

2 40 


cannot be 
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APPENDIX A - Continued 


SUBROUTINE DMULT 


Description: Subroutine DMULT multiplies XJI by a diagonal matrix Dl. 


Subroutine listing: 


SUBROUTINE DMULT (XJI , D 1* X JI Dl , JKM V M Z) 

OMUL 

0 

REAL XJI < 35, 8) ,XJI01 <3 5,7J ,01 < 8, 7> 

OMUL 

10 

DO 10 1 = 1, HZ 

OMUL 

20 

DO 10 J=1 , JKM 

OMUL 

30 

xjioit j, i > =xji ( j, n*ni <r,i> 

OMUL 

40 

RETURN 

OMUL 

50 

ENO 

OMUL 

60 


SUBROUTINE SUMULT 

Description: Subroutine SUMULT adds the term XJID1*XJI to the SUM matrix. 

Only the lower triangular elements are accumulated because the result must always 
be symmetrical . 


Subroutine listing: 


SUBROUTINE SUMllLT(XJI t X J 10 1 , SUM , J KM ,M Z ) 

SUMU 

0 

REAL XJ 1(35, 8), XJI 01 (35, 7), SUM (35, 3 5> 

SUMU 

10 

DO It 1=1, JKM 

SUMU 

20 

00 10 J=1 , I 

SUMU 

30 

OO 10 K=1 ,MZ 

SUMU 

40 

SU M ( I , J>=SUM( I, JUXJID1 ( I,K)*XJI( J, K) 

SUMU 

50 

RETURN 

SUMU 

60 

ENO 

SUMU 

70 
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APPENDIX A - Continued 
SUBROUTINE PLOP 

Description: Subroutine PLOP punches a matrix on cards. 

Subroutine listing: 


SUBROUTINE PLOMX) 

PLOP 

0 

COMMON /ALLOIM/ MAX, MIX 

PLOP 

10 

DIMENSION X(i) 

PLOP 

20 

FORMAT (0F1O.6) 

PLOP 

30 

FORMA T(A4,4X, 12,110) 

PLOP 

40 

M AX2 = M A X M AX 

PLOP 

50 

MAX3=HAX2*MAX 

PLOP 

60 

I I=X( MAX) 

PLOP 

70 

J J= X ( MAX2 > 

PLOP 

00 

WRITE (2,10 3) X (HAX3), II , J J 

PLOP 

90 

KE= ( J J-l > *MA X 

PLOP 

100 

DO 2 1=1, II 

PLOP 

110 

KEN0=I*K E 

PLOP 

120 

WRITE (2,102) ( X < K ) , K= I, KENO , MAX ) 

PLOP 

130 

return 

PLOP 

140 

END 

PLOP 

150 


SUBROUTINE ASPIT 

Description: Subroutine ASPIT prints a matrix. 

Subroutine listing: 



SUBROUTINE ASPIT(X) 

ASPI 

0 

WRITES OUT MATRICES 

ASPI 

10 


COMMON /ALLDIM/ MAX,MIX 

ASPI 

20 


DIMENSION X(l) 

ASPI 

30 

100 

FORMAT (IX, A4, 30X, 13, 4H BY, 13) 

ASPI 

40 

10 1 

FORMAT ( 1 2X , 10 E 12 ■ 4) 

ASPI 

50 


MAX2 = MAX * 2 

ASPI 

60 


MAX3=MAX2 + MAX 

ASPI 

70 


II=X (MAX ) 

ASPI 

ao 


JJ=X ( MAX2) 

ASPI 

90 


WRITE (3, 100) X (MAX 3) , II ,JJ 

ASPI 

100 


KE= < JJ-1) *MAX 

ASPI 

110 


DO 1 I =1,11 

ASPI 

120 


KEND= I+KE 

ASPI 

130 

1 

WRITE (3 , 101) f X CK » ,K=I, KENO , M AX ) 

ASPI 

140 


RETURN 

ASPI 

150 


END 

ASPI 

160 


80 



APPENDIX A — Continued 
SUBROUTINE AADD 


Description: Subroutine AADD adds scalar multiples of two matrices . 

Z = gr*X + h*Y with g = 1. 

Subroutine listing: 


SUBROUTINE AAOD (G,X,H,Y,ZI 

AA 00 

0 

specialized version for nr ASSUMES G*l. 

AADO 

10 

COMMON /ALIDIM/ MAX, MIX 

AADD 

20 

DIMENSION KI1),YU),Z(1) 

AA DO 

30 

MAX2 = MAX * 2 

AADO 

40 

1 1 = X (MAX ) 

AADD 

50 

JJ = X (MA X2 ) 

AADO 

60 

JENO- <JJ-1>*M AX*1 

AADO 

70 

I IM1= II-l 

AADO 

80 

DO 53 J=1,JEN0,MAX 

A A 00 

90 

KEN0= J*II Ml 

AADO 

100 

DO 53 K=J,KEN0 

AADO 

110 

Z (K ) =X (K) +H*Y (K) 

AA 00 

120 

Z ( MA X ) = X ( MAX ) 

AADD 

130 

Z (MAX2MX (MAX2 ) 

AA 00 

140 

RETURN 

AADO 

150 

ENO 

AADD 

160 


SUBROUTINE AZOT 


Description: Subroutine AZOT sets all elements of a matrix to 0. 

Subroutine listing: 


SUBROUTINE AZOT(X) 

AZOT 

0 

COMMON /ALIOIM/ MAX,MIX 

AZOT 

10 

DIMENSION X(l> 

AZOT 

20 

MAX2 = MAX * 2 

AZOT 

39 

IIM1=X(MAX)-1. 

AZOT 

40 

JJM1=X(MAX2) -1. 

AZOT 

50 

IEND=JJM1*MAX*1 

AZOT 

60 

DO 1 1*1, LEND, MAX 

AZOT 

70 

KEN 0* L ♦ 1 1 Ml 

AZOT 

80 

DO 1 K= L , KENO 

AZOT 

90 

X (K > =0, 

AZOT 

100 

RETURN 

AZOT 

110 

END 

AZOT 

120 
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APPENDIX A - Continued 


SUBROUTINE AMAKE 


Description: Subroutine AMAKE moves the matrix Y into X. 

Subroutine listing: 


SUBROUTINE AHA KE( X ,Y ) 

AMAK 

Q 

COMMON /ALLDIM/ MAX, MIX 

AM AK 

10 

DIMENSION X(l) ,Y(1> 

AMAK 

20 

M AX 2 = MAX * 2 

ANAK 

30 

IIMi=V(MAX)-l. 

AHAK 

40 

J JM 1= Y (MAX2) -1 . 

AMAK 

50 

LEND= JJMl*MAX+i 

AMAK 

60 

00 1 L=l, LEND, MAX 

AMAK 

7 0 

KEND= L + I IM1 

AMAK 

80 

00 1 K= L, KE ND 

AMAK 

90 

X < K ) = Y{ K) 

AMAK 

IOC 

X < M A X ) = Y (MAX) 

AMAK 

110 

X (MAX2) =Y (MAX2) 

AMAK 

120 

RETURN 

AMAK 

130 

END 

AMAK 

140 


SUBROUTINE INV 


Description: Subroutine INV inverts a general matrix in place. 

Programing notes: Gauss elimination is used here; there is no pivoting, since 

this subroutine will be called only for a well-conditioned , near-diagonal matrix 
(the R matrix) . See reference 9 for a discussion of this method. 

Subroutine listing: 



SUBROUTINE INVCA.MAX) 

INV 

0 


INVERTS A GENERAL MATRIX IN PLACE 

INV 

10 


NO PIVOTING (DIAGONAL ELEMENTS MUST BE NON-ZERO) 

INV 

20 


0 I MENSI ON A ( M A X , 1 ) 

INV 

30 


N=A(MAX,1 > 

INV 

40 


DO 80 K = 1 , N 

INV 

50 


0 I GA= A ( K, K) 

INV 

60 


DO 50 1 = 1 ,N 

INV 

70 


IF (I .EQ.K ) GO TO 50 

INV 

80 


A ( I , K) = -A (I,K) /BIGA 

INV 

90 

50 

CONTINUE 

INV 

100 


00 60 1=1, N 

INV 

110 


IF ( I . EQ. K) GO TO 60 

INV 

120 


DO 55 J=1 , N 

INV 

130 


IF (J.EQ.K) GO TO 55 

INV 

140 


A( I, J) = A ( I , J) + A ( I ,K) *A <K, J > 

INV 

150 

55 

C 0NTINUE 

INV 

160 

60 

CONTINUE 

INV 

170 


DO 70 J=1 ,N 

IN V 

180 


IF(J.tQ.K) GO TO 70 

INV 

190 


A<K,J)=A(K,J) /PIGA 

IN V 

23 0 

7 D 

CONTINUE 

INV 

210 

80 

A (K,K )=1* /BIGA 

INV 

220 


RETURN 

INV 

230 


END 

INV 

240 
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APPENDIX A — Continued 
SUBROUTINE SOLVE 


Description: Subroutine SOLVE solves the system of linear equations, Ax = b, 

where A is symmetrical. It uses Cholesky's matrix decomposition. (See programing 
notes for subroutine REDUCE.) Only the lower triangular and diagonal elements of 
A are used. 

Programing notes: The b vector is assumed to be stored as the N + 1 column 

of A, where N is the dimension of the system. 

Subroutine listing: 


SUBROUTINE SOL VE ( A, X ) 

C 

C SOLVES SYSTEM 4X = B (A SYMMETRIC, P STORED IN N*1 COLUMN OF 4 ) 

C 

REAL 4(35,1) , X (35) 

CALL REDUCE (4) 

N = A < 3 5,1) 

N M 1 = N - 1 
NP1 = N ♦ 1 

£***♦**„ ♦♦*♦***,*** MULTIPLY (L)*(D1 

DO 7 u 1 = 2, N 
X < I) = A ( I, NP1 I 
I M1=I -1 
DO 7: J=1 » I Ml 

70 X (I)=X(t)+A(I,J)*A(J,NFl) 

MULTIPLY BY (Oil 
A ( 1 ,NP1 ) = A (l , NF1 ) /A ( 1 , i > 

00 AO 1=2, N 

80 A (I,NP1)=X(I)/AII,I) 

MULTIPLY BY (LM TO FORM (L* > M 01 ) * ( L> * ( B ) 

DO 90 1=1, NH1 
X ( n = A(I,NPl) 

IP1=IU 
00 93 J=IP1,N 

90 xm =x< n + a ( j , n*A { j ,n fi ) 

X (N) = A ( N , N P 1 ) 

RETURN 

ENO 


SO L V 0 
SO L V 10 
SO L V 20 
SO L V 30 
SO L V 40 
SO L V 50 
SO L V 60 
SO L V 70 
SO L V 80 
SO L V 90 
SO L V 100 
SO L V 110 
SO L V 120 
SO L V 130 
SO L V 140 
SO L V 150 
SO L V 160 
SO L V 170 
SO L V 180 
SO L V 190 
SO L V 230 
SO L V 210 
SO L V 220 
SO L V 230 
SO L V 240 
SO L V 250 
SO L V 260 
SO L V 270 
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APPENDIX A — Continued 


SUBROUTINE DIAGIN 

Description: Subroutine DIAGIN obtains the diagonal elements of the inverse of 

a symmetric matrix. It uses Cholesky's decomposition of the matrix. (See subrou - 
tine REDUCE programing notes.) 

Subroutine listing: 


SUBROUTINE 0IAGIN<A> OIAG 0 

C OIAG 10 

C FIND DIAGONAL ELEMENTS OF A INVERSE FOR SYMMETRIC A OIAG 20 

C OIAG 30 

REAL A (35*1) OIAG 40 

CALL REDUCE <A) OIAG 50 

N =A (3 5i 1 > OIAG 60 

NM1=N-1 OIAG 70 

00 90 I - 1 1 NM1 OIAG 60 

A ( I* I > =1 • /A (1*11 OIAG 90 

IPl = I*i 01 AG 10 0 

DO 90 J=IP1»N OIAG HO 

90 A (I , I» = A( 1,1) ♦A <J, I) **2/A( J, J) OIAG 120 

A < N,N)=1 ./ACN, N) OIAG 130 

RETURN OIAG 140 

ENO OIAG 150 
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APPENDIX A — Continued 
SUBROUTINE REDUCE 


Description: Subroutine REDUCE factors a symmetric matrix A by Cholesky's 

matrix decomposition . 

Programing notes: The matrix is factored into L ^DL 1 , where L is the lower 
diagonal with unity diagonal elements, and D is diagonal. The lower diagonal, L, 
is returned in the lower triangular locations of A , except for the diagonal locations , 
which contain D. 


Subroutine listing: 



SUBROUTINE REDUCE (A ) 


RE OU 

0 




REOU 

10 


REDUCES SYMMETRIC MATRIX A STOREO IN LCWER TRIANGULAR LOCATIONS 

RE OU 

20 


TO THE FORM ( L I ) * (0) * ( LI* ) WHERE L IS A LOWER TRIANGULAR MATRIX 

REOU 

30 


WITH UNITY 0 1 AGON A L TERMS, 0 IS A DIAGONAL MATRIX, 

REDU 

40 


I DENOTES INVERSE AND * TRANSPOSE 


REOU 

50 




REOU 

60 


REAL A ( 3 5 » 1 ) 


REOU 

70 


N=A (35,1) 


REDU 

80 


NM 1=N - 1 


REOU 

90 


DO 20 K= 1 , NM1 


REOU 

100 


KP 1 = K ♦ 1 


REDU 

110 


KM1=K-1 


REOU 

120 


AKKI=1 • / A (K, K > 


REOU 

130 


00 20 I=KP1,N 


REOU 

140 


A KK IK = A (I ,K)*AKKI 


REOU 

150 


00 10 J=I ,N 


REOU 

160 

10 

A(J,I1=A(J,I) - A KK I K* A < J, K ) 


REOU 

170 


A ( I ,K ) = - A KKlK 


REDU 

180 


I F (KM 1 • ECU 0) GO TO 20 


REDU 

190 


00 15 J=1,KM1 


REDU 

20 0 

15 

A ( I » J 1 = A (ItJ>-AKKIK*A(K,J) 


REOU 

210 

20 

CONTINUE 


REOU 

22 0 



PART OF A 

REOU 

230 



0 

REOU 

240 


RETURN 


REOU 

250 


END 


REOU 

260 
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APPENDIX A - Continued 
SUBROUTINE SCALES 


Description: Subroutine SCALES determines scales for plotting the vector X on 

an axis S inches long. If the formal parameter ZERO is true, 0 must be included in 
the scale. 

Programing notes: The minimum value on the axis is returned in location 

X(N + 1) , and the scale in units per inch is returned in location X(N + 2) . The 
only scales permitted are 2,4, and 10 units per inch times a multiple of 10. A 
-999. is returned to indicate that all values of X are the same. 

Subroutine listing: 



SUBROUTINE SCALES ( X, S, N« ZERO) 

SCAL 

0 


LOGICAL ZERO 

SC al 

10 


REAL X ( 1 ) T F AC ( 3 ) 

SCAL 

20 


OATA FAC/2.»4« ,1C*/ 

SCAL 

30 


XMAX^X ( 1) 

SCAL 

40 


XMIN-X(l) 

SCAL 

50 


IF(. NOT. ZERO) C-0 TO 10 

SCAL 

60 


X M A X= 0 . 

SCAL 

70 


XMIN=0. 

SCAL 

80 

10 

00 20 1=1* N 

SCAL 

90 


XMAX= AMAX1 (XMAX t X < I ) > 

SCAL 

100 

20 

XMIN=AMIN1 (XHIK,X <I> ) 

SCAL 

110 


A = XMA X-XMIN 

SCAL 

120 


IEtA.NE.O.) GO TO 30 

SCAL 

130 


SCALE=-999. 

SCAL 

140 


GO TO ICO 

SCAL 

150 

JO 

9 = A/S 

SCAL 

160 


J = IFIX < A9S (AL0G1C (0) ) ) 

SCAL 

170 


IF(B.LT.l.) J=-J-l 

SCAL 

180 


F AC T= 10 .”J 

SCAL 

190 


8= B/F ACT 

SCAL 

200 


DO 50 1=1*3 

SCAL 

210 


SCALE = FACT*FAC (II 

SCAL 

220 


AMIN=XHIN-AMOO(XMlN f SCALE> 

SC AL 

230 


IF(AMIN.GT.XMIN) A MI N= AMIN- SCALE 

SCAL 

240 


IF( (XMAX-AMlNI .LE. SCALE’S) GO TO IOC 

SCAL 

250 

50 

CONTINUE 

SCAL 

260 


S CALE = 10 . ’FACT ’FAC (1 ) 

SCAL 

270 


AMIN = XMIN- a HOD CXMIN, SC ALE I 

SCAL 

280 


IF(AMIN.GT.XMIN) AMI N= AM IN -SCALE 

SCAL 

290 

100 

X <N+1)= AMIN 

SCAL 

300 


X (N + 2 > =SC ALE 

SCAL 

310 


RETURN 

SCAL 

320 


END 

SCAL 

330 
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APPENDIX A — Continued 
SUBROUTINE LINES 


X-a^^he“ ine UNES Pl ° tS S °‘ id ° r daShed lines ay "> b °ls of ‘he 

tion invocations N°pTl l^NPT^ X aSSUmed ‘° have SMlta Sf inf o™o- 

other sources. Every ISKIP point of the data U usedTand theTtarf IsKIP^eter- 

the forays (positive'SmW bo made s,ar,in e fr °m the lower numbered locations in 
JSKIP -*0 Jr ^ ° r he hlgher numbere d locations (negative sign) If 

JSKIP - 0. a solid lme is plotted; if positive, a solid line is plowed with symbols 

SSn^HP-Tm _1 ' ° n !V Symb ° 1S are Pl ° ,,<!d - A dashed >ino may 
relevant, and HOT gives itl hefcht? ^ lndlCa,eS ,he symbo1 to P'o«ed if 


Subroutine listing: 


c 

c 


SUBROUT INE LINES <X,Y ,NPT, ISKIP, JSKIP, L> 
rSKIP=* PLOT FORWARD , - BACKWARDS 

common /l incoh/^hgt* LINF AND 5YMB0LS ’ • SVM90LS 0NLY °* 

REAL X<1 > ,Y(1) 

LOGICAL SYMB 

IF(A9StHCT-«5) « GE • ■ 5 ) HGT*.07 
X MIN = X (NPT+i ) 

YMIN= Y ( NPT*1 ) 

DX=X(NPT+?) 

0Y = Y ( NPT+2) 

IS=IABS (I SKIP) 

N= fNPT-1 ) /IS+1 
N A = 1 

IFdSKIP.LT. 31 NAsISM N-l ) +1 

JH0D = MAX3 dABS(JSKIP), l)dS 

SYMB= . TRUE . 

IF ( JSKI P. EQ, 3 ) SYMB=. FALSE. 

I L = -2 

IF(JSKIP.LT.O) IL=-1 

CALL PLOT < (X <NAJ -XMIN) /OX, < Y (N A ) -YM IN ) /DY.3I 
00 5 0 I — 1 , N 

IFISYMB. ANO. M0C(NA-1 . JMOD) . EO.O ) GO TO 30 
CALL PLOT ( <X(NA)-XMIN) /DX, (Y ( N A ) -YMIN1/DY.2) 

GO TO 50 

IS SisNA^SK?p MX ‘ NM * XNIN,/OX,<V,NA ’- VMU ’ ,Oy - HGT - L ’ 0 - IL > 

RETURN 

END 


LINE 
LI NE 

D AS HE O LNLINE 
LINE 


0 

10 
20 
30 
40 
50 
60 
7 0 

ao 

90 


LINE 
LINE 
LI NE 
LI NE 
LINE 
LINE 
LINE 100 
LINE 110 
LINE 120 
LINE 130 
LINE 140 
LINE 150 
LINE 160 
LINE 170 
LINE 180 
LINE 190 
LINE 200 
LINE 210 
LINE 22 0 
LINE 233 
LINE 240 
LINE 250 
LINE 260 
LINE 270 
LINE 280 


87 



APPENDIX A - Continued 
SUBROUTINE PLTDAT 


Description: Subroutine PLTDAT is used to identify plots. It is machine specific 

for the date and time software. The subroutine may be altered to reflect the form o 
plot identification desired (or a null subroutine may be used) . 


Subroutine listing: 


SUBROUTINE PLTCAT<X,Y) 

plots date AND TIME for PLOT ICENTIFICATION 
MACHINE SPECIFIC FOR DATE AND TIME SOFTWARE 
CALL SVM0OLCX, Y t .i, OAT E( JULIAN) 1C > 

CALL SYMBOL l999**V,.l,TIMEtSFC0N0)*li**13> 

RETURN 

ENO 


PL TO 0 
PL TO 10 
PLTO 20 
PL TO 30 
PLTO 40 
PL T D 50 
PLTO 60 


FUNCTION TIME 


Description: FUNCTION TIME is a dummy function to substitute for the TIME 

function available on CDC 6000/7000 systems. If using such a system, FUNCTION 
TIME may be removed; for other systems it may be rewritten to properly access the 
system time, or it may be retained. It is called only from subroutine PLTDA . 


Function listing: 


FUNCTION T IMF ( ARG ) 

DUMMY SUBROUTINE IF TIME NOT AVAILABLE 
OATA BLNK/1H / 

A RG“ BLNK 
T IM£=3LNK 
RETURN 
END 


ME ( A 0 
ME (A 10 
ME < A 20 
ME (A 30 
ME (A 40 
ME (A 5 0 
ME ( A 60 


FUNCTION DATE 


Description: FUNCTION DATE is a dummy function to substitute for the DATE 

function available on CDC 6000/7000 systems. As with FUNCTION TIME, FUNCTION 
DATE should be removed if using such a system and should be either rew^tten or 
retained when used on other systems. It is called from subroutine PLTDAT and EDIT. 


Function listing: 



TE ( A 

0 

FUNCTION DATE (ARG) 

TE ( A 

10 

OUMMY SUBROUTINE IF DATE NOT AVAILABLE 

TE ( A 

20 

DATA 8LNK/1H / 

TE (A 

30 

ARG = B LNK 

TE (A 

40 

0ATE=QLNK 

TE ( A 

50 

RETURN 

TE ( A 

60 

END 
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APPENDIX A - Continued 


ASSEMBLER LANGUAGE SUBROUTINES 


Since the program spends a large part of its time in matrix multiplication , the 
execution time may be reduced considerably by writing the two small matrix multi- 
plication subroutines AMULT and SUMULT in efficient assembler language code. In 
the following listings these two subroutines are written in COMPASS for use on CDC 
systems. These particular subroutines should be usable on any 6000 or 7000 series 
CDC system with the FORTRAN EXTENDED compiler. (The RUN compiler has 
different subroutine linkage conventions.) The use of these subroutines in place 
of the FORTRAN routines will speed up the program by 20 percent to 25 percent. If 
extensive use on other systems is anticipated, it may be advisable to make assembler 
versions for them . Some FORTRAN optimizers may be efficient enough to negate the 
gain realized; the 20 percent to 25 percent improvement mentioned, however, is 
referenced to the highest level of optimization available with a CDC FORTRAN 4 . 0 
compiler . 
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APPENDIX A - Continued 
ASSEMBLY SUBROUTINE AMULT 


Subroutine listing: 


0 0400400000 ♦ 

1 5140003000 C 

5 150 COQ 00 1 C 

2 63240 

63350 

6110777776 

3 55211 

55321 


HA X 
MAM 


AMULT 


IDENT AMULT 
ENTRY AMULT 
USE COOE 
USE 
BSS 
OSS 
USE 
EG 
SA 4 
SA5 
S02 
SB3 
SOI 
SA2 
S A 3 



66421 


SB4 


66631 


SR6 

4 

53414 


S A 4 


53526 


SA5 


1 0644 


0X6 


53634 


SA6 

5 

26444 


UX 4 


22444 


LX4 


63541 


SB5 


26565 


UX 5 

6 

22565 


LX5 


63750 


S87 


54553 


SA5 


10655 


5X6 

7 

54662 


SA6 


2 60 45 


UXG 


220 40 


L X 0 


66410 


SB4 

10 

67441 

LCOPIK 

S84 

7 3714 


SX7 


6 660 3 


S 06 


76600 


SX6 

11 

53470 

LOOPJ 

SA4 

53526 


S A 5 


40 445 


F X 4 


30 664 


FX6 

12 

73772 


SX 7 

67661 


S86 


u 767000 Oil ♦ 


LT 

13 

24606 


NX6 


5 3634 


S A 6 


C745C00010 ♦ 


LT 

14 

66410 


SR4 

7 30 0 1 


SXC 


7 3223 


S X 2 


73 332 


SX 3 

15 

0310000010 ♦ 


HZ 


0400000000 * 


EQ 

16 



£N0 


/ALLOIM/ 


1 


1 


ICE 


AMUL T *4 0 000 0 6 


MAX 


MAM 


X 4 

MAX 

X5 

MAM 

-1 

-1 

Al-Bl 

8 

A2-B1 

C 

e2*ei 

MAX-1 

R3+01 

MAM-1 

XI * 04 

A ( M AX * 1 1 

X2+86 

0 ( HAM * 1 ] 

X4 


X3 * 84 

= C (MAX, : 

°4,X4 


04* X4 


X4401 

II -1 

86* X5 


06, X5 


X5 

JJ 

A5 + B3 

8 (MAM, 2 

X5 


A6* 82 

=C (MAX , 

04* X5 


B4, XG 

KK 

81 

I=C FOR 

04-81 

1=1*1 

XI ♦ 04 


0Q 

J = 0 

P0 


X7 

A 

X2*86 

B 

X4*X5 

A*B 

X6* X4 

*C 

X7+B2 

STEP A 

06-01 

J= J*1 

06* 07 * LOOPJ 


X6 


X3+B4 

= C 

R4,B5*LCCPIK 

PI 

1 = 0 

X0*B1 

K= K ♦ 1 

XZ*B3 

STEP 8 

X 3* 02 

STEP C 

X0 * LOOP I K 


AMULT 
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APPENDIX A - Continued 


ASSEMBLY SUBROUTINE^SUMULT 

Subroutine listing: 





IDENT 

SUMULT 





ENTRY 

SUMULT 





USE 

/ALLOIH/ 


Q 

2 

H AX 

BSS 

2 





USE 

COOE 


0 

0400430000 + 

SUMULT 

EQ 

SUMUL T + 40 00 0 0 8 

1 

6110000001 


SB 1 

1 

1 


5150000000 C 


SA5 

MAX - 


2 

63250 


SB2 

X5 



10711 


BX7 

XI 

XJI 


5011000001 


SAi 

Am 

XJIOI 

3 

50 210 000 0 1 


SA2 

A1+ 1 

SUM 


5042300001 


S A 4 

A2+1 


4 

53340 


SA 3 

X4 



63430 


SB4 

X3 

JKM 


54441 


S A 4 

A4+B1 



53440 


SA 4 

X4 


5 

42445 


1X4 

X4*X5 



63740 


SB7 

X4 

MZ*MAX 


66500 


SB5 

eo 



63351 


SB3 

X5 *81 

MAX + 1 

6 

730 75 

LOOPIK 

SXO 

X7 + B5 

LOC (XJI ( K , 1) ) 


5 3525 


SA5 

X2 + 85 

SUM (K , I) 


10655 


8X6 

X5 



66600 


SB6 

B0 

J=0 

7 

53 40 6 

LOOPJ 

SA4 

X0 + B6 

XJI (K,J) 


53516 


SA5 

X1 + B6 

XJI <1, J> 


40545 


FX5 

X4*X5 



30656 


FX6 

X5 + X6 


10 

66662 


SB6 

B6+82 

J=J + 1 


2 460 6 


NX6 

X6 



0767000007 ♦ 


IT 

06, 67, LOOPJ 


11 

53625 


SA6 

X2+B5 

=SUM( I, K) 


66551 


SQ5 

85 + 81 

K=K + 1 


07540 00 00 6 ♦ 


LT 

B5 ,B4, LOOPIK 


1 2 

66500 


S85 

R0 

RESTART K 


67441 


SB4 

64-B1 

LOWER K LIMIT 1=1+1 


73111 


SX1 

Xl + 91 

STEP LOC( XJI( I, 1) 1 


73223 


SX2 

X2 + B3 

STEP SUM LOC TO DIAGONAL 

13 

73771 


SX7 

X7 + B1 



070 400 0006 ♦ 


LT 

BO, B4, LOOPIK 


1 4 

0400000000 ♦ 


EQ 

SUMULT 


15 



END 
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APPENDIX A — Concluded 


SEGMENTATION 


Although the MMLE program does not require OVERLAY or SEGMENTATION to 
fit on most large computers, it is usually desirable to segment the program to 
decrease the load on the system . The following SEGMENTATION directives are used 
on the CDC OPERATING SYSTEM SCOPE 3.4 to reduce the loaded program size from 
74,000g words to 52,000^ words (including all buffers and system routines for 

input/output) . The cost in execution time is negligible. The structure illustrated 
by these directives may be used as a guide for implementing the MMLE program on 


other systems . 



PLTTREE 

TREE 

LINES- (THPLOT ,APRPLT) 

DATTREE 

TREE 

MATLD- (EDIT .DATA) 

DOTREE 

TREE 

AEAT- (AGIRL .OUTPUT) 


TREE 

MMLE- (PLTTREE .ASPIT- (DATTREE .DOTREE) ) 

LINES 

GLOBAL 

LINCOM 

ASPIT 

GLOBAL 

TOGIRL .INFO .TODATA .ROUTH .DIMENS 


GLOBAL 

END 

ALLDIM ,BUF .MATRIX.COM .TOPLOT .HEADNG 
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APPENDIX B 


SAMPLE CHECK CASE FOR MMLE PROGRAM 


This appendix presents a sample check case for the MMLE program . This 
listing is intended to aid the user in checking out the MMLE program; therefore, 
many of the available options have not been used. 


INPUT CARDS 


AIRCRAFT 

A CHECK CASE 


II NPUT 

CA RD =T ♦ Q= 5 20 . , V=4665. 

, SEND 

0 C S 

0 0 D 58 75 


A 

4 4 


- 0 • u 3 8 

C.lll -1.0 

3.00 69 

-16.79 

-G.241 0.4 

j . 0 

1.55 

-0.JD284 -0.342 

1 . 

O.P 

B 

4 5 

.0148 


12.76 

20.08 


.3577 

-2. 445 


D 1 

7 


21 6Q . 
ENDCASE 

6.5 4860. 

135. 


0 

0 C 25 

.72Qu 

2. CQQ. 

.280 8 


-.7 jOU 

.0 80" 

fl.oada 

0.0600 

0 

u i 5 

,680 

2.33a 

. 280 8 


-. 8 COO 

.0800 

0.0030 

0.0 JOG 

0 

J j 75 

. 650u 

1. 9996 

.2922 


-.870i 

.140 i 

0 . 0 S J . 

o.ocoe 

0 

3 : 10 

.630 

1.5315 

.2808 


-.9200 

. 2200 

0 . 0 C 3 o 

0.GC 0 C 

J 

3 0 125 

. 620; 

1.5312 

.2521 


-.9753 

. 3 50C 

3.0') 0 i 

0. 0 r CO 

0 

Q Q 153 

.6203 

1.5 315 

.2292 


-1 . 020 j 

. 60 03 

n . jo:: 

0.6*00 

3 

0 C 175 

.6203 

1. 5312 

.2305 


-1 . 0 650 

. 8503 

o.oou ; 

0 , 0 C 0 0 

3 

a o 20 ; 

.6303 

1. 7476 

.1490 


-1.1 ’0 

1 .080 . 

'j . o c : . 

0 .0 3 0 0 

0 

« a 225 

. 6 5 0 r 

1. 9999 

.0515 


-1.130. 

1.330 : 

a . 0 j a . 

0. 310 C 

0 

u 3 25C 

, 71 0C 

2.2979 

0 • DC 0 G 


-1. 165: 

1 .55 0C 

3,00.' 

0.0 GO 

3 

0 3 275 

.7200 

2. 4984 

-.0516 


-1.1900 

1.7401 

a, aco . 

0 . 0 C 0 c 

0 

0 J 30. 

. 750* 

3.0C22 

- • 1 4 9 C 


-1.220k. 

1.940: 

3.333 

0.3.00 

3 

C J 325 

.780' 

3.5C11 

-.2292 


-1.2 453 

2 . 100 : 

3.000 • 

0 . 0 c o r 

3 

0 3 35, 

.8001 

3.7989 

5495 


-1. 270; 

2.2403 

3.030. 

0.3C GO 

J 

3 . 3 75 

.8 10C 

4. 2 j 0 1 

-.4527 


-1.2900 

2.3 70 ) 

0.003 

0 . 0 l 0 0 

0 

0 J 40 C 

. 830; 

4. 498 

-.5672 


-1 . 310.) 

2.4703 

0,003. 

O.OOOC 

3 

0 J 425 

.803, 

5.5.35 

-.6909 


-1.3 40 i. 

2.549: 

0 • j 0 il . 

O.JOOC 

J 

0 0 45 f 

.920* 

5. 9966 

-.0194 


-1. 355i 

2 • 60 0C 

0,03 3'. 

0.3300 

3 

0 . 475 

.9. 0. 

6. 4995 

-.9614 


-1. 3 65«J 

2.6403 

0. 0001 

3.3 0 : 

3 

4 j 50 1. 

1 • 0 C u */ 

7,51.12 

-1,0487 


-1.37C 

2.650. 

o.oo r 

0 . 0 f, Q C 

3 

0 C 525 

1 . w 3 □ r 

7.9976 

-1.2494 

-1. 38C . 

2.655*: 

3.000, 

o.o: CO 

3 

0 C 55 

1.120. 

8 , 494 8 

-1. 38C 8 


-1.385. 

2.640. 

t.sa j. 

0 . L 1 0 C 

3 

C .] 5 75 

1.180C 

9. f i C 3 6 

- 1 . 5 1 4 


-1.393 

2.600' 

c.orc. 

0.3" 0 C 


22.65 2.7 198. 


.7999 

.015„ 

-5.CC24 

-.2 '06 

.7999 

• 0 1 5 C 

-5. C023 

-.3495 

.9312 

.015C 

-4. 7503 

-.5503 

.9*. 2 

.015- 

-4. 2519 

86 2G 

, 9 JC 2 

, 0 1 5C 

-3. 7474 

-I.C487 

. 9 : j 2 

. „ 15C 

-2.4985 

-1.3984 

.9999 

.0 206 

-1.2491 

-1.7 : 17 

.9999 

.0233 

1 . * u 26 

-2 .1* 513 

.9999 

.0 25L 

3.5108 

-2.4522 

.9999 

• 0 30 0 

5.7451 

-2 . 6991 

.9999 

.0 35C 

8.2507 

-3.3C07 

1 .3031 

. C 4 2C 

11.9998 

-3.7018 

1.3998 

• 0 443 

15. 0634 

-4.1*83 

1.5 101 

.0440 

16. 5007 

-4.5322 

1.5061 

.0470 

18. 5029 

-4.8476 

i • 6 6 : 4 

.054: 

19.4973 

-5.C 395 

1 .7 631 

.0540 

2G.C497 

-5.4205 

1 .8304 

• C 5 4C 

2C. 051C 

- 5 . 3 1- Q 2 

2 • 3 ) ’ 3 

• 0 5 4L 

20.0494 

-5.4492 

2.2C33 

.0 520 

20. 0510 

-5 . 3 - * 2 

2.3 u : ; 

• Z 520 

19.9953 

-5.1512 

2 . 5 -J tj . 

, C 4 9f 

18. 9998 

-5.C j 2 4 

2 * 7 L - . 

. U 44'*. 

17.9991 

-4.8 15 
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APPENDIX B — Continued 


o 

3 o ec: 

1.230 i 

9.5014 

-1.6500 


-1.4030 

2.560l 

o . n g c : 

0.00 OC 

i 

3 j 625 

1.2 8 0*: 

9. 9975 

-1.7820 


-1.435. 

2.460c 

3. OCOJ 

0.0000 

j 

u u 6 5. 

1.350b 

10.1966 

-1.9193 


-1.4100 

2.38 0c 

o.g jo: 

G.OCOC 

0 

0 C 675 

1 . 4 3 0 i 

10. 4995 

-1.9959 


-1 .415 3 

2. 260' 

3.000 < 

0.3C0C 

d 

3 0 70 : 

1.450, 

13.8321 

-2.0971 


-1 .415. 

2.1203 

0.0003 

o. aooc 

3 

l 3 725 

1.550'J 

11.2024 

-2.1776 


-1.415. 

1.9700 

3 . 0 0 u : 

O.QGOO 

3 

Ei C 75 

1.630.' 

11. Qy 14 

-2.2173 


-1.415U 

1*7603 

0. 00 Co 

0 .3C00 

3 

0 3 775 

1.720C 

1C. 8002 

-2.2 80 5 


-1.415. 

1.550, 

0 . C 0 C ( j 

0 . 3 u C 0 

3 

3 0 80. 

1 .8 b o: 

13. 496u 

-2.3208 


-1 . 420’ 

1 .340:. 

0 . oooc 

0.00 OC 

0 

3 o 625 

1,880. 

13. 1975 

-2.3720 


-1.423 

1.080 j 

n . o o g , 

0.0000 

3 

0 3 85 1 

1.98 0 

9. 4984 

-2.3777 


-1.425. 

• 8 40 : 

0 . u 0 u c 

0 . 0 1] 0 0 

3 

3 j 6 75 

2.020: 

8 . 495*4 

-2.3893 


-1.425: 

• 640 * 

O.OGOc 

Q. 0000 

3 

GO 90l 

2.1003 

7.4985 

-2.3781 


-1 . 425. 

.48 a: 

C « 0 0 3 0 

0.0000 

0 

C 3 925 

2.20 a; 

6.4958 

-2.3662 


-1.425. 

.via: 

0.000: 

0 .OC 00 

Q 

C 0 95C 

2.230b 

5.2031 

-2.3610 


-1 . 425. 

.340 

2 * fc G ’j , 

C . 0 1 0 0 

0 

C 3 975 

2,3 20 

3,9993 

-2.3492 


-1. 423c 

. 3 0 Q c 

0 . 0 0 ? j 

0 .OC 00 
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-.197C - ■ C 1 1 8 -.0137 4.5015 
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.9748 -.0098 -.0004 4.4768 
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APPENDIX B - Continued 


Two sample plots from the MMLE program are shown . The plots as produced by 
the automatic plotter are shown within the heavy lines. Explanatory material is 
included to aid the user in implementing the program. Each plot is presented in two 
parts to avoid loss of detail from a large reduction. The title on each plot corresponds 
to the title on the output listing. 
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APPENDIX C 


SETUP PROGRAM AND SUBROUTINES 


Listings of the main program and the subroutines used in the SETUP program 
are presented together with supplementary information. 


MAIN PROGRAM SETUP 


Description: The main SETUP program sets several defaults and then reads the 

option cards to determine whether it is to read an input tape , punch a card deck , 
write an output tape, or perform any combination of these operations. It then directs 
the execution of the assigned tasks for each case. 

Programing notes: As in the MMLE program, the program statement is needed 
on CDC 6000/7000 systems. On an IBM 360/370 system, DD cards perform this 
function. Cards 590 to 730 are concerned solely with setting the default values for 
DELTA as defined in the input description (p. 30) . 
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APPENDIX C - Continued 


Program listing: 


c 

c 

c 



PROGRAM SETUP( IN PUT, PU*CH, OUTPUT, TAPE 4, TAPE 15 ,T AP E1=INPUT , 

MAIN 

0 


TAPE2=PUNCH,TAPE3=OUTPUT) 

MAIN 

10 


COMMON /ALLDIM/ M A X , M I X 

MAIN 

20 


COMMON /OPTION/ T APE , OEC K , RE AO 

MAIN 

30 


COMMON /FLCONO/ ALPH A , THE T A , Q , V , M ACH, I X , I Y , IZ ♦ I XZ , W , PH I , CG , K I AS, 

MAIN 

40 


ALT, LONG, PA RAMtFLT, CASE, AVG, DELTA, ST, ET,DE TRIM 

MAIN 

50 


REAL MACH, IX, I Y, I Z, IX Z,K I AS, AVG (40) 

MAIN 

60 


INTEGER ST(4) ,ETC4) ,FLT,CASE 

MAIN 

70 


LOGICAL TAPE, OECK, REAO, LONG, LATR,DELTA(4),LATDEL(4),L ON 0EL(4), DEL 

MAIN 

80 


NAMELIST /COND/ L ONG, L AT R , FL T ,C ASE , AL PH A , THET A , Q , V, MA CH , W , IX, IY, 

MAIN 

90 


IZ,IXZ,KIAS, ALT, CG,PARAM,OELTA, PHI, DETRIM 

MAIN 

100 


OAT A WRT/4HWR IT/ , PNC/4HPUNC/ ,RD/4HREA 0/ ,START/4HSTAR/ 

MAIN 

110 


M A X *5 

MAIN 

120 


REWINO 15 

MAIN 

130 


OO 1C 1=1,4 

MAIN 

140 


LONDELf I)=. FALSE. 

MAIN 

150 

10 

LATDEL(I>=. FALSE. 

MAIN 

160 


TAPE*. FALSE. 

MAIN 

170 


DECK=. FALSE. 

MAIN 

180 


READ*. FALSE. 

MAIN 

190 


OETRIM=u. 

MAIN 

200 


P AR AM = G . 

MAIN 

210 


CG* 999 * 

MAIN 

220 


IXZ=C. 

MAIN 

230 


ALT*G. 

MAIN 

240 


K IA S= Q • 

MAIN 

250 


THETA=G. 

MAIN 

260 


P H I =G . 

MAIN 

270 


FLT-C 

MAIN 

280 


C AS E=0 

MAIN 

290 


LONG*. FALSE, 

MAIN 

300 



MAIN 

310 


REAO OPTIONS 

MAIN 

320 



MAIN 

330 

20 

REAO (1,1000) OP TN 

MAIN 

340 


IF(OPTN.EQ. START) GO TC 50 

MAIN 

350 


IF (OPTN.NE.WRT) GO TO AO 

MAIN 

360 


TAPE*. TRUE. 

MAIN 

370 


WRITE (3,2001) 

MAIN 

380 

30 

REAO*. TRUE. 

MAIN 

390 


WRITE (3, 2000) 

MAIN 

400 


GC TO 20 

MAIN 

410 

40 

IF(CPTN.EQ.RD) GO TO 30 

MAIN 

420 


IF (OPTN.NE.PNC) GO TO 20 

MAIN 

4 30 


DECK*. TRUE. 

MAIN 

4 40 


HRI TE ( 3,2002) 

MAIN 

450 


GO TC 20 

MAIN 

460 

50 

IF(OECK) CALL SETIN 

MAIN 

470 


IF ( RE AD) CALL RDSET 

MAIN 

480 



MAIN 

490 


CASE LOOP 

MAIN 

500 



MAIN 

510 

100 

REAO (1,1001) ST , E T 

MAIN 

520 


I F < ST < 1 ) .LT.Cl) GO TO 200 

MAIN 

530 


LATR=. FALSE. 

MAIN 

540 


DO 110 1=1,4 

MAIN 

550 

110 

DELTA(I)*. FALSE. 

MAIN 

560 
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APPENDIX C - Continued 


REAO (1 , COND > 

IFUATR) LONG=. FALSE. 

OEL=OELTA ( 1) . OR.OElT A ( 2) .OR .DELTA (3 ) . OR. DELTA (4) 

I F ( LONG ) GO TO 150 
IFC.NOT.OEU GO TO 110 
00 120 1=1,4 
120 LATDEL(I) =DELTA(I) 

GO TO 190 
130 00 143 1=1,4 
140 DELTA (I> =LATDEL (I ) 

GO TO 193 

150 IF(.NOT.QEL) GC TO 170 
DO IF 0 1=1,4 
160 LONDELm=OELTA<I> 

GO TO 190 
170 DO 180 1 = 1,4 
150 OELTA (I > = LONOEim 
190 WRITE C 3 , 2 0G3)FLT,CASF t ST, ET , LONG 
IF ( RE AD) CALL TAPERO 
I F (DECK ) CALL PNCH 
GO TO 100 
10 0 0 FORMA T ( A<* ) 

100 1 FORMAT(2( 312, 13, IX) ) 

2000 FORMAT l 18H0TAPE WILL BE REAO) 

2001 FORMAT (25H0MLE TAPE WILL BE WRITTEN) 

200 2 FORMAT <25H0MLE OECK WILL BE PUNCHED) 

20 0 3 FORMA T(1H1 ,2C X , 6HFLI GH T, I 3, 5X , 4HC AS E, 1 4, 5X , 4HT IHE , 4 , 4H TO, 

- 414, 5X,14HL0NGI TUOINAL? ,L1) 

20 C STOP 
ENO 


MAIN 570 
MAIN 580 
MAIN 590 
MAIN 63 0 
MAIN 610 
MAIN 620 
MAIN 630 
MAIN 640 
MAIN 650 
MAIN 660 
MA IN 670 
MAIN 650 
MAIN 69C 
MAIN 7GD 
MAIN 710 
MAIN 72 C 
MAIN 731 
MAIN 740 
MAIN 750 
MAIN 760 
MAIN 770 
MAIN 700 
MAIN 790 
MAIN 8 JO 
MAIN 810 
MAIN 820 
MAIN 830 
MAIN 840 
MAIN 850 
MAIN 86C 
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APPENDIX C — Continued 


SUBROUTINE SETIN 

Description: Subroutine SETIN initializes all information needed to punch the 

MMLE program deck. It sets several defaults and reads in the values desired. It 
also calls WINDIN to input predicted derivatives and CONDI to make any other input 


required by the 

user. 



Subroutine listing: 




SUBROUTINE SETIN 

SE TI 

3 


COMMON /COM/ MZLA,MZL0,S,SPAN,C8AR,CGLA,CGLC, METRIC, Q1L0, 

SET I 

10 


OIL A * VEH , APR ALA , APRBLA * APRALO, APRPLO, WML A , HMLO, PUNCH, CORECT, 

SE T I 

20 


XALF,XB,Z0,XAN, ZA X , X A Y , Z A Y , SPS , OL A , DL 0 

SE T I 

30 


COMMON /OATAWT/ NBP, NM9P, NA 3P, CAT A 

SET I 

40 


COMMON /WTDATA/ NCL A , N CL 0, A BP, MBP , BP, NCM AX , LONG 

SET I 

50 


REAL OAT A (300 0 ) , 01 LO (7 ) , 01 L A < ? ) , A BP (1 6 ) , MSP C 1 6 > , BP < 8 ) , VEH C 21 , 

SE T I 

50 


APRALA< 5,4), APRAL0C5,4> , APRBLA <5, 8>, APRBLC<5,8) 

SET I 

to 


LOGICAL METRIC , LONG( 8> , L ATR ( 8 ) , R A 0 » OE G *PUNCH, CORECT , BODY , S TA 9 , 

SET I 

8 3 


LAT ,L0N,DLA,DLO 

SE TI 

90 


NAMELIST /WIND/ NABP,NH8P,NBP, $, SP AN , C 8AR , CGL A ,CG L0 , DE G, R A 0, 

SET I 

10 0 


METRIC, LONG* L ATR, MZLO , MZL A , NCL O , NCLA , W MLC , WML A , PUNCH, YALE , 

SE T I 

110 


XAN, ZAX,XAY, ZAY,SPS, XB,ZB,BOOY,STA9 

SE TI 

120 

C 


SET I 

130 

c 

DEFAULTS 

SE TI 

140 


SPS=C . 

SE TI 

150 


XR-0 . 

SET I 

160 


ZR = C . 

SE TI 

170 


X AY = 0 . 

SET I 

180 


Z AY = B • 

SE T I 

190 


XAN=Q . 

SET I 

200 


7 A X* C • 

SE TI 

210 


X ALE=0. 

SET I 

220 


C0RECT= .FALSE. 

SET I 

230 


CGL A = . 2 5 

SET I 

240 


C GL0 = ,25 

SE TI 

250 


MZL A = 5 

SET I 

260 


M ZLO= 5 

SE TI 

270 


PUNCH=. FALSE. 

SET I 

280 


METRIC=. FALSE. 

SE T I 

290 


BOOY= .FALSE. 

SET I 

300 


0LA=. FALSE. 

SE T I 

310 


0L0=. FALSE. 

SET I 

320 


W MLA = - 9 99 99. 

SET I 

330 


WMLO=-99999. 

SE TI 

340 


R AD= . FALSE. 

SE TI 

350 


DO 5 1=1,3000 

SE T I 

360 

5 

0ATA (I )=0 . 

SE TI 

370 


OOl] 1=1,8 

SETT 

380 


BP < I ) =0 . 

SE TI 

390 


LONGt I)= . TRUE . 

SET I 

400 

10 

L ATR (11s. FALSE. 

SET I 

410 


N BP= 1 

SETT 

42 0 


N A9P= 1 

SET I 

410 


NM BP = 1 

SET I 

440 


L0N=. FALSE. 

SET I 

45C 


LAT=. FALSE. 

SET I 

460 


REA0 (1, HINDI 

SET I 

4^0 


I F ( A8S ( XB 1 ♦ AB S CZBM-ARS < XA LF > *A RS < XA N ) +A9S<ZAX> + A3S ( X A Y ) + A9S( ZAY) 

SE TI 

480 


,NE. 0.) CORECT=. TRUE. 

SE TI 

49C 


OO 4 n 1 = 1 ,NB D 

SE T I 

5 3 0 


IFl.NOT.LATRlin GO TO 33 

SET I 

510 


LONG( I)=. FALSE. 

SE TI 

520 

30 

I F ( LONG ( I ) ) GO TO 35 

SETT 

530 


L AT= • TRUE • 

SE TI 

5 40 


GO TO 4C 

SET I 

550 

35 

LON* . TRUE, 

SETT 

560 
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APPENDIX C - Continued 


40 CONTINUE 

READ (1,1000) VEH 
IF(LAT) RE AO (1,1001) OllA 
I F (LON) READ (1,1001) OILO 

IF(01LA(1) *01LA(?) «-OtLA(3) ♦01LA(4)*01LA(5>.GT.O.) OLA=.TRUE. 
IF{OllO(l)*OlLOC2)*OlLO(3>*01LO(4H01lC<5) .GT.0.) OLO=.TRUE* 

IF (HMLA.LT ,0 , ) GO TO 5C 
CALL LOAOl(APRALA) 

CALL LOAOl (APRELA) 

50 IFIHMLO.LT. 0 . ) GO TO 6C 
CALL LOAOl (APRALOI 
CALL LOAD1 (APR6L0) 

60 HRITE (3 ,20C0 ) VEH, CGL A, CGLO, RAO 

CALL HINOlNtOAT A.N0P ,NM0P,NABP ,80 DV , • TRUE. , RA C ) 

CALL CONDI 
100Q FORMAT ( 2 A4) 

1001 F ORMA T ( 7F 10 • 4) 

200 0 FORMAT (1H1,2A4,5X,2THHIND TUNNEL OATA. REF CG = ,F5.3,7H ( LA T) , , 
F5.3,23H (LONG) PER RACIAN? ,L1) 

RETURN 

END 


SETI 570 
SETI 560 
SETI 590 
SETI 600 
SETI 610 
SETI 620 
SETI 630 
SETI 640 
SETI 650 
SETI 660 
SETI 670 
SETI 680 
SETI 690 
SETI 700 
SETI 710 
SETI 72C 
SETI 730 
SETI 740 
SETI 750 
SETI 760 
SETI 770 
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APPENDIX C - Continued 


SUBROUTINE WINDIN 


Description: Subroutine WINDIN reads in predicted derivatives, converting 

longitudinal data from the stability axes to the body axes if required . 

Flow chart: 


(gtart ) 

Identify type of 
this set of data 


Read derivative 
name and key 



Read data as a 


Read data as a 

function of Mach number 


function of Mach number 

only 


and angle of attack 



Convert longitudinal 
data to body axes if 
read in as stability 
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APPENDIX C - Continued 


Programing notes: The loop from cards 770 to 1000 is written in a more expanded 
form than necessary to improve its efficiency. 

Subroutine listing: 


SUBROUTINE WI NDIN (DA TA , NBP, NMBP, NABP, BODY, PRINT, RAO) 

C 

C READS IN WIND TUNNEL OATA 

C 

C DATA IS DIMENSIONED ( N 0P , NMBD, N ABP , NCM A X) WITH THE LAST 2 

C DIMENSIONS HANCLEO IN FORTRAN FOR COMPILERS LIMITEO TO 3-0 

COMMON /W TO A T A / NCLA ,NCL0, ABP, MBP,8P, NCMAX, LONG 
REAL OATA (NBP, NH8P,i) , A9P(16) , M0P ( 1 6 ) , BP { 8 ) , OER (21 , 3 ) 

LOGICAL L0N&(8 >, BODY , PRINT, RAD 
INTEGER NNABP (21) 

DATA DER/3HCYB,3HCL8,3HCNB,3MCLP,3HCNP,3HCLR, 3HCNR ,4HC YO A, 4HCL0 A, 
4HCNDA,4HCY0R,4HCL0R, 4HCNDR, 4H CY 01 , 4HCL01 , 4HC N01 ♦ 4HC YO? , 
4HCLD2, 4HCNP2,1H ,1H , 

3HCLA,3HCKA,3HCCA ,3HCMQ,3HCLV, 3HCMV,3HCCV,4HCL0E, 4HCM0F, 
4HCDDE,4HCLDC,4HCM0C,4HCD0C, 4HCLD 1 ,4HCMD1 , 4HCOP1 , 4HCL02 , 
4HCMD2, 4HC0D2,2MCL,2HC0, 

3HCNA,3HCWA,3HCAA , 3HCMQ , 3 HCN V , 3HCMV, 3HQAV ,4HCNDE, 4HCM0E , 
4HCA0E, 4HCN0C,4HCMDC, 4HCA0C, 4H CND1 , 4HCMD 1 , 4HC AOl , 4HCND2 , 
4HCM02,4HCAD2,2HCN,2HCA/ 

NCM AX=2l 

C READ NBP SETS OF WIND TUNNEL DATA 

DO 20 0 L- 1 , NBP 
NC*NCL A 
L L= 1 

IF ( ,NOT *LONG ( L ) ) GO TO 5 
NC = NCL 0 
LL = 2 

IF(BODY) LL=3 
5 IFCNC.EQ.O) GO TO 200 
DO ICO 11*1, NC 

C READ AND IDENTIFY DERIVATIVE NAME 

READ (1,1002) DER I V, N 
IF(PRINT) WRITE(3,2000)OERIV 
DO 1C 1=1 , NCM AX 

IF (0ERIV*EQ.DER(T,LD) GO TO 20 
10 CONTINUE 

WRITE (3,2001) OERIV 
STOP 

C INPUT DATA AS FUNCTION OF MACH AND ALPHA OR MACH ONLY 

20 K2=I*NABP 
K1=K2-N6BPM 
IE(N.LE.l) GO TO 40 
DO 3C J = 1 , NMBP 

READ (1,1001) (DATA( L* J,K) , K=K1, K2) 

30 IF(PRINT) WRITE( 3,20 0 2 KOATA(L,J,K) ,< = K1,K2) 

GO TO 60 

40 REAO (1,1001) (OATA(L*J,K1),J=1,NM0P) 

I F ( PRINT) WRITE (3,20 02 > (DAT A (L ,J* K1 ), J = 1 , NMBP) 

DO 50 J*1,NMRP 
DO 5C K=K 1 , <? 

50 OATA(L, J,K)=DATA (L,J,K1) 

6C IF ( , NOT. R AO, OR* ( T, 6T • 3 * AND* I, L T,B ) , OR , I *GT . 19 ) GO TO 100 
DO 70 J= 1 , NMBP 
DO 70 <=K1,K2 

70 OATA (L »J,K)=OATA(L*J,K)/57*2958 
100 CONTINUE 
200 CONTINUE 


WIND 

0 

WIND 

10 

WINO 

20 

WIND 

30 

HI NO 

40 

WIND 

50 

WINO 

60 

HIND 

73 

WIND 

80 

WI NO 

90 

HI NO 

100 

WINO 

110 

WIND 

120 

WINO 

130 

WINO 

140 

WINO 

150 

WIND 

160 

WI NO 

170 

WI NO 

180 

WINO 

190 

WINO 

20 C 

WIND 

210 

WINO 

220 

WI NO 

230 

WINO 

240 

WINO 

250 

WI NO 

260 

WINO 

270 

WIND 

280 

WIND 

290 

WINO 

300 

WI NO 

310 

WINO 

320 

WINO 

330 

WINO 

340 

WINO 

350 

WINO 

360 

WI NO 

370 

WIND 

380 

WI NO 

39 0 

HIND 

43 0 

WI ND 

410 

WINO 

420 

WINO 

430 

WI NO 

44C 

WIND 

450 

WINO 

460 

HI ND 

470 

WIND 

480 

WI ND 

49 0 

WI NO 

500 

WINO 

510 

WINO 

520 

WIND 

530 

WIND 

540 

WI NO 

550 

WIND 

560 
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READ BREAKPOINTS 


READ (!• 1001 ) (ABP( J) , J=1 , NARP) 

IF( PRINT) WRITE (3* 20 03) (ABP(J) ,j=i t NABP) 

REAO (1,1001) (HBP(J) ,J=1,NMBP) 

IF (PRINT) WRITE(3,2004) (16P(J) ,J=1,NHBP> 

READ (1,1001) (RP(J) , J=l,8) 

IF (PRINT) WRITE(3,20n5 ) (BP( J), J=1,N0P) 

I F ( BODY) RETURN 
CONVERT STABILITY TO BODY AXES 
DO 210 1=1,21 
3 NNABP(I)=I*NAPP 
OO 300 K= 1 , N A BP 
DO 220 1=1,21 
3 NNA9P( I) = NNARP (I) 4-1 
SA=SI N ( ABP (K > /5 7.2958) 

CA=COS (ABP(K) / 57. 2958) 

DO 30 0 L = 1 ,NBP 

IF ( , NOT . L ONG (L ) ) GO TO 300 

00 23 0 J= 1 , NM BP 

TEMP=DA TA (L,J,NNABP(19))*CA40ATA(L,J, NNA8P (20 ) ) *SA 

DATA(L,J, NN AR P (20 ))*OATA<L,J,NNARP(20 ) )*CA-DATA(L * J, NN ABP (19 ) ) *SA 

DATA( L, J, NNABP (19) )=TEMP 

TEMP=DATA(L,J,K)*CA + OATA(L,J,NNABP(2) ) *SA f Q AT A (L* J» NNABP (20 ) 
Z57.2958 

OATA (L, J, NNABP (2) ) =0 AT A ( L , J , NN ABP (2 ) ) *CA-D A TA (l,J,K)*SA- 
- OATA (l,J , NNA8PU9 ) )/57. 2958 

OATA (L , J, K)=TEMP , 

TEMP=DATA (L, J, NNABP( 4 ) ) *CA +OA TA ( l , J, NNABP ( 6))*SA 
0 ATA (L ,J, NNABP ( 6 ) )=OA TA (L, J, NNABP( 6 ) ) *C A -DA TA ( L , J, NNABP ( 4)>*SA 
OATA (L, J, NNABP ( 4))*TEMP 

TEMP=OAT A ( L, J, NNABP( 7 ) ) *C A + 0 A T A (L , J , NNABP ( 9))*SA 
D AT A (L , J, NNABP ( 9 ) ) =0 A T A ( L , J, NN AB P( 9) )*CA-DATA(L»J,NNAP D ( 7))*SA 
DATA (L,J, NNABP ( 7))=TEMP 

TEMP= OATA (L,J, NNABP (10 ) )*CA+DATA (L * J, NNABP ( 12 > ) *SA 
D ATA (L, J, NNABP ( 12 ) ) *DA T A ( L, J, NNABP ( 12 ) )*CA-OATA(L, J, NNABP < 10 ) )*SA 
OATAtL, J,NNARP(1C ) )=TEMP 

TEMP = 0 AT A (L,J , NNABP (13 ) ) *C4 +OA TA ( l, J, NNABP (15) )*SA 

DATA(L,J* NNARP(15)) = OATA(L f J,NNABP(15) )*C A-DA TA (l, J, NNABP (13 ) >*SA 

DATA (L,J, NNABP (13))* TEMP 

TFMP= OATA (L, J. NNABP( 16 ) ) *CA + OATA (L» J, NNABP (18 ) )*SA 

OAT A( L* J, NNARP (18) )*OATA ( L , J, NNABP ( 18 ) )*CA-DATA ( L , J , NNABP ( 16 ) )*SA 

DATA (L, J, NNABP (16) )*TEMP 

CONTINUE 

E ORMAT (8F 10. 4 ) 

FORMAT (A4,4X, 12 ) 

FORMAT (IX, A8) 

FORMATdX, A8,49HTS NOT A VALID DERIVATIVE NAME FOR THIS TYPE CASE) 
FORMAT (5X, 10E13.5) 

F ORMA T ( 18 H ALPHA BRE AK PO I NT S /5 X, 1 OF 13 . 5) 

FORMAT (17H MACH BREAKPCI NTS/5X , 10F1 3. 5 > h 

FORMAT ( 1 8H PARAM BRE AK PO INT S/5 X , 1 0 F 1 3 . 5> H 

RETURN u 

ENO 
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APPENDIX C - Continued 
SUBROUTINE TAPERD 


Description: Subroutine TAPERD supervises the reading of the input tape and 

obtains averages of the channels read in. It also writes the output file if desired. 
It calls TAPEIN, the user-supplied input routine, to do the actual reading of the 
input tape. 


Subroutine listing: 


SUBROUTINE TAPFRD 

COMMON /OPTION/ TAPE .DECK, READ 

COMMON /FLCOND/ ALPHA, THETA ,Q, V,MACH,IX,IY,IZ,IX?,H,PHI,CG,KIAS, 
ALT, LONG, PARAM, FL T , C AS E , A VG , OE LT A ,ST ,ET , D ETR I M 
REAL MACH,IX,IY,IZ,IXZ,KIAS,AVG<4Q) ,0ATA(4G,1CQ> 

LOGICAL TAPE, DECK, REAO ,0ELTA(4) 

INTEGER ST (4) ,ETC4)»TI ME (4, l n C 1 ,JST (4) 

NFRAME=10 3 
00 it 1=1, 40 
10 AVGtI>=C. 

N P T 5 = w 

20 CALL TAPE IN(DATA, TIME, NFRAM£,ST t ET) 

NFR=IA8S(NFRAME) 

DO 133 1=1* NFR 

IF<TAPE> WRITE <4» ( TI ME ( J , 1 1 , J= 1 , 4 > , ( OAT A < J, I ) , J= 1 , 2 5 > 

00 30 J=1 , 40 

30 AVGIJ1 = AVGIJ>+CATA(J,I ) 

NPT=NPT+1 

IFCNPT* NE. 1) GO TO 100 
00 43 J= 1 » 4 
4C JST < J) =TlM£tJ , I) 

130 CONTINUE 

I F ( NFRAME • G T • 0 > GO TO 2 C 
110 ANPT^NPT 

00 120 1=1,4? 

120 AVG(I)=AVG(I> /ANPT 

WRITE (3 ,2000 >NFT, JST, < TIMEt J,NFR> , J = 1 ,4) , AVG 
200 0 FORMAT( 1H0,I5, 22H POINTS IN-CASE. TIMES, 4I4,4H TO, 414/ 

17 HO CHANNEL AVER A GE S/ < 1 3 X , 10 F 1 2 . 4 ) > 

RETURN 

ENO 


TAPE 

0 

TAPE 

10 

TAPE 

20 

TA PE 

3 3 

TAPE 

40 

TAPE 

50 

TAPE 

60 

TAPE 

70 

TAPE 

80 

TAPE 

90 

TAPE 

too 

TAPE 

110 

TAPE 

120 

TAPE 

130 

TAPE 

140 

TAPE 

150 

TAPE 

160 

TA PE 

170 

TAPE 

180 

TAPE 

190 

TAPE 

210 

TAPE 

210 

TAPE 

22C 

TAPE 

230 

TAPE 

240 

TAPE 

250 

TAPE 

260 

TAPE 

270 

TAPE 

280 

TAPE 

290 

TAPE 

330 


136 



APPENDIX C - Continued 


SUBROUTINE PNCH 


Description: Subroutine PNCH dimensionalizes coefficients and punches the 
MMLE card deck . 

Programing notes: Through card 540, this subroutine contains some computa- 
tions and initializations used in all cases. Then cards 590 to 980 contain the lateral- 
directional dimen sionalization and computations; cards 1030 to 1390 contain this 
information for the longitudinal cases. The remaining cards control the punching 
of the output deck . 

Subroutine listing: 


SUBROUTINE PNCH 

COMMON /F LCONC / ALPHA, THETA ,Q , V , M AC H , I X , I Y , IZ , I*Z , W, PH I, CG,K I AS , 
ALT, LONG, PAPAM,FLT,CASEiAVG, DELTA ,ST, ET, DETPIM 
COMMON /COM/ MZLA,MZLO,S, SPAN, C9AR,CGLA,CGL0, METRIC, 01L0, 

D1LA ,VEH , A PR ALA, A PR3LA , APFALO, APR 8L0 , WML A , HMLO, PUNCH, CO RECT, 
XALF , XB, ZB,XAN,ZAX, X A T , Z A Y , SPS , 0 L A,OLO 
COMMON /OATAHT/ NBP, NM BP , NA BP, CAT A 

REAL MACH,IX,IY,IZ,IXZ,KIAS,AVG(40),DATA(3C02)»D1LO(7) , OIL AC 71 , 
VEH (2) ,APRALA (5,4 ) , APRAL0 (5, 4) , APR0L A ( 5, 81 , APRBLO <5, 8) , 

At 5, 4) , 0(5,5) ,88(5,5) ,X(21) ,MASS 
INTEGER S T I 4 > , ET ( ,FL T , CASE 

LOGICAL LONG, 0ELTA (4 ) , METRIC, PUNCH, COR£CT,0LA»DLO 

DATA ALA9,0LAe ,BBLAB,ALAT, AL0N/iHA,lH6,2HBB,4HLATR,4HLONG/ 

A (5, 1 )=4. 

A(5,2>=4. 

A(5, 3>=ALAB 
B (5, 11 = 4. 

9(5,2) =5. 

8(5,3)=8LAB 
CALL AZOTIA) 

CALL AZ0T(B) 

CALL AM AKE (88 * R ) 

89(5, 3 ) = B8L AR 
08(1, 51*1. 

98 (2 , 5 ) = 1 • 

90 (4, 5 ) =1 • 

call cond 

T IMES C= * 5 

IT* ( < ET ( 1 > -ST ( 1)) *3600 ♦ (ET (21 -ST (2) ) *60 + ET ( 3 ) -ST ( 3 ) > * 1 0 0 C «■ 
ET(4)-ST (4) 

IE(IT,GT. 12500 » TIMESC=1. 

IF(IT,GT. 250CO ) TIMESC=2. 

CALL INTERP(OATA,NBP,NMBP,NA0P,X) 

R AO = 5 7 .2956 
CGFLT=CG 

IF (CG.NE, 999. ) GO TO 7 

3007 FORMAT (44H0CG NOT SPECIFIED. DEFAULTED TO HIND TUNNEL.) 
WRITE(3,3007) 

CGFLT =CGL A 
I F (LONG ) CGFLT=CGLO 
7 OCG=C . 

ALPR=AL PH A/RAO 
THETR=THET A/RAD 
PMIR=PHI/RAD 
S T H*S IN (THETR) 

CT=COS( THETR) 

C P=C0S ( PH IR ) 

G = 32 . 172 

IF(METRIC) G=9. 80665 

MASS=H/G 

QS*Q* S 

QSOMV =QS/ (MA SS* V I 

WRITE (2, 3000 ) VEH, FLT ,CA$E, MACH, ALPHA, PARAM , H, IX, IV , IZ , IXZ,0, V , 

- PUNCH, TIMESC 

WRITE (3 ,2000 ) AlPHA,MACH,Q ,V, CGFLT ,P AR A W 
I F (LONG ) GO TO 1^0 
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LATERAL 

PNCH 570 
PNC H 580 

WMAPR = A8S ( WML A ) 

PNCH 590 

IF(. NOT.CORECT) GO TO 1-3 

PNCH 61 C 

DCG=CGELT-CGL A 

PNCH 610 

XBC=X8 

PNCH 62G 

X A YC- X AY 

PNCH 630 

IF(X9.NE.0.> XBC= X8O0CG*C9AR 

PNCH 640 

IF(XAY,NE,0.) XAYC=XAYC+OCG*CBAR 

PNCH 650 

WRITE (2,3 001) XBC*Z«* XAYCt ZAY 

PNCH 660 

T YPF= AL AT 

PNCH 670 

98 (3 , 5 ) =1 • 

PNCH 630 

QSOMV-OSOMV*RAD 

PNCH 690 

QSB=QS*SPAN*RAC 

PNCH 71 3 

QSBIX=QS8/IX 

PNCH 710 

QSBIZ=QSB /I Z 

PNCH 720 

92 VsSPAN/ (2. *V*RAQ) 

PNCH 730 

QS8VIX=QSBIX»R2V 

PNCH 740 

QSBVIZ=QSBIZ*B2V 

PNCH 750 

dcg=ocg*cbar/span 

PNCH 760 

A U,l>=QSOHV*X <1) 

PNCH 770 

A { 2, 1 ) =0S9IX*X(2) 

PNCH 730 

a(3,i)=qsbiz* (x <3 >*ocg*x u> ) 

PNCH 790 

A (1,2) = SIN(ALPR) 

PNCH 810 

A (2 t 2)=QSBVIX*X(u> 

PNCH 810 

A (3,2)=QSBVIZ*X (F ) 

PNCH 820 

A (4,2 )=i , 

PNCH 830 

A (1, 3>=-COS ( ALPR) 

PNCH 840 

A(2,3)=0SBVIX*X<6) 

PNCH 850 

A(3,3)=QSBVI7*X(7> 

PNCH 860 

A (4,3 ) = CP*STH/CT 

PNCH 870 

A (I, 4> sCP*CT*G/V 

PNCH 830 

00 ZZ 1=1 *4 

PNCH 890 

J=3»I+5 

PNCH 900 

8(1,1 ) =QSOMV*X (J) 

PNCH 910 

0(2, I) =QSBIX*X ( J*l> 

PNCH 920 

9(3,1 )=QSBIZ* (X (J + 2) «-0CG*X (J) ) 

PNCH 930 

IF( . NOT . DELTA ( I) ) GO TO 20 

PNCH 9^C 

80(1, 11*1. 

PNCH 950 

BB (2,1 ) =1 . 

PNCH 960 

0B ( 3 , 1 ) = 1 * 

PNCH 970 

CONTINUE 

PNCH 980 

GO TO 200 

PNCH 990 
PN C HI 50 0 

LONGI TUOINAL 

PNC HI 0 10 
PN CHI 0 20 

NMAPRsABS (HMLO) 

PN C HI 0 30 

IF ( , NOT .CORECT ) GO TO 111 

PNC H 1 0 40 

dcg=cgflt-cglo 

PNCH1G 50 

X ALFC=XALF 

PN C HI 06 0 

X ANC= xan 

PN CHI 0 70 

IF (XALF C • NE • r . • ) XALFC= X A LFC ♦ OCG*CBA R 

PNCH1080 

IF(XANC.NE.O.) XANC=XA NC+OCG*C q AR 

PNC HI 0 90 

WRITE(2,3003)XALFC,XANC,7AX 

PNCH111D 

T YPE= ALON 

PNCH1110 

W RITE (2 » 30 32 > 

PN CHI 1 2 0 

QSOM=QSOMV*V 

PN C HI 1 30 
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QSCIY=QS*CBAR/IY PNCH1140 

V 2=2, /V PNCH1150 

QSCVIY=0SCTY*CeAR/(2 .* V) PNCH1160 

A (1,1 >=-QSOHV*xm »9AD PNCH1170 

A (2, 1 ) = QSCIY* < X (2 ) *RA0-0CG* A <1 ,1 ) /QSOMV) PNC HI 180 

A ( 3, 1 ) = -Q SOM* X < 3 ) *RA 0 PNCH119Q 

A<1,2)=1. PNCH1200 

A (2,2 )=QSCVI Y*X (4 > PNCH1210 

A(4,2)=CP PNCH122C 

A(l, 3)=-QSOMV*V2*X<5) PNCH1230 

4 (2 ,3)=QSCIY* V2*X (6) PNCH124G 

A (3,3)=-QS0M*V2*X(7) PNCH1250 

A(l*4)=-S TH*CP*G/V PNCH1260 

A<3,4)=-CT*G PNCH1270 

00 130 1=1,4 PNCH1280 

j - 3* X ♦ 5 PNCH129C 

B (1, I)=-QSOMV*X(J)*RAD PNCH1300 

B (2, I ) = QS C I Y * < X ( J + 1) *R AD-OCG*B (1, I) /QSCMV) PNC HI 310 

B(3,I)=-QS0H*X (J*2)*RAD PNCH1320 

r F ( .NOT . DELTA ( I ) ) GO TO I3f PNCH1330 

BB (1,11=1. PNCH134C 

BR (2 , II =1 « PN CHI 350 

13a CONTINUE PNC HI 360 

B(1,5)=-QSOMV*X<20)- (A Cl , 1 > *ALPHA*R (1, 1)*DFTRIM) /RAO«-CP*CT*G/V PNCH1370 
fl (2,51 = - (A (2*1 >*ALPHA + B(?,1 1 *0ETR IH1/ RAO PN CHI 3 60 

B (3,5)=-QS0M*X ( 21) -< A( 3, 1 ) * A(_PHA+B< 3, 1 J *DETRIM) /RAO PNCH1390 

2JG IFCHMAPR, EQ. 99999. ) WMAPR = 0* PNCH1400 

WRITE (2,3004) WFAPR, A tPHA , H ACH, CGFLT , PA RAM, T YPE , S, SPAN , CBAR ,SPS, PNCH141 0 
1 ST , ET PN C HI 42 0 

CALL PM AT ( A ) PNCH1430 

CALL PHAT<9) PNCH144C 

IF( OtlT A ( 1 ) • OR • OELTA (2 ) • OR • DEL TA ( 3) .OR *DELT A ( 4) ) CALL PM AT CBS) PNCH145C 
IF ( LONG ) GO TO 210 PNCH146Q 

IF (OLA) WRITE <2, 3P051MZLA, 01LA PNCH1470 

IF( WMLA. LT.O . 1 GO TO 250 PNCH1480 

CALL PMAT1 ( APRALA ) PNCH1490 

CALL PMAT1 (APRPLA ) PNCH1500 

GO TO 250 PNCH1510 

21C IF COLO) WRITE (2 , 3005 1M ZLO.niLO PNCH1520 

IFCWMLO. LT.C. 1 GO TO 250 PNCH1530 

CALL PMAT1 (APRALO) PNCH1540 

CALL PM AT 1 ( APRBLO) PNCH1550 

250 WRITE (2,3006) PNCH156G 

RETURN PNCH157Q 

2000 FORMAT (8H0ALPHA =,F6.2,9M MACH =,F5.3,6H Q =,F7.1,6H V =, PNCH1580 
F7.lt 7H CG =,F5.3,1TH PARAM = ,F10.4) PNCH1590 

30 0 0 FORMAT (2A4»6X,6HFLIGHT , I 4 , 6H CAS £ , 14 , 6X , 5 HH A CH=, F 5. 3 , PNCH1600 

6H ALPHA=,F6.2,8H PARAH=, F7. 2/ 1 5H i INPUT GR0SWT=,F7 .C , PNCH1610 

6H , IX= , F7* 0 ,6H , IY“,F7.C ,6H ,IZ=,F7.0,7H , T XZ= ,F 7. 1 , 1H, /PN CH 1 62 0 

3 H Q * ,F6 • 1 , 5H »V=,F6. 1*9H , P UN CH = , L 1 , 1 C H , TI ME SC = , F3 , 1 , PNCH1630 

10H , BOTH=T , ) PNCH1640 

3001 FORMAT (4H XB=,F6.2,6H ,Z9=,F6.2,7H , XAY= , F6 . 2, 7H ,ZAY=,F6.2, PNCH1650 

1H ,> PNCH1660 

3002 F ORM AT < 1 5H ZMA X (3 ) = 100 ? . , ) PNCH1670 

300 3 F0RMAT(6H XALF=,F6,2,7H , X AN= , F6 . 2 , 7 H ,Z A X=, F6 . 2, 1H, ) PNCH16B0 

300 4 FORM A T ( 7H HMA PR = , E8.2, 9H , ALP H A= , F 6. 2 , 8H ,MACH= ,F5. 3 ,6H ,CG=, PNC H169C 

F5. 3, 9H ,PARAM=,Fi:.4,lH,/lX, A4,7H=T, S=,F5. r , PNCH17J0 
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® H ,SPfiNs,F6.2 t8H , CP AR =,F 6. 2, 7M * SPS= ,F<»* G » 7H * SFNO/ PNCH1710 
2(312, 1 3, IX) ) PNCH1720 

3005 FORMAT (2H0if7X , I1/7F10 ,1) PNCH173Q 

3006 FORMAT(7MENDCASE) PN C H 1 7 4 C 

EN0 PNCH1750 
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APPENDIX C - Continued 
SUBROUTINE INTERP 


Description: Subroutine INTERP interpolates predicted derivative data tables 

to obtain the nondimensional derivatives for a particular flight condition. 

Programing notes: The subroutine first brackets the Mach number and angle 

of attack of the flight condition between breakpoints of the predicted data; it also 
selects the correct set of predicted data depending on the value of PARAM . The 
interpolation is divided into four sections. The interpolation occurs in one of the 
four sections on the basis of how many Mach and angle-of-attack breakpoints are 
specified . If only one breakpoint is specified , the required code changes slightly , 
because there are not two points to interpolate between. 

Subroutine listing: 


SUBROUTINE INTERP (DMA ,N9P, NNBP.NABP, X) 

C 

C INTERPOLATES NINO TUNNEL OATA 

C 

COMMON /FLCOND/ ALPHA* THET A , Q, V,MACH, I X, I Y , 17 * I XZ , W,PHI ,CG ,K I AS , 
ALT, LONG, PARAM,FLT,CASE,AVG,OELTA,ST ,ET,OETRIM 
COMMON /HTOATA/ NC LA ,NCL 0 , A BP , MBP , BP, NCMA X , LO N GWT 
REAL MACH ,IX, I Y, IZ,IXZ ,<I AS, AVG(4C J ,D A TA ( NBP, NM8P , 1 ) ,A9P<16> , 

MBP { 16) ,0P(B),X 121) 

INTEGER ST<4> ,ET<4>, FLT,CASF 
LOGICAL DELTA (4) , LONG, L ONGW T i 8 1 , X OP F 
C F I NO CORRECT SET OF DATA 

L = 1 

00 60 11=1, NBP 

X 0RF= (LONG. AND. LONG* T< II II .OR. C. NOT .L ONG. AND. . NOT . LONGWT < III I 
60 IF ( (PARAM. EQ. BP ( II) . OR . PARANA P ( I I» *EQ.O . ) .AND, XOPF) L=II 
C BRACKET ALPHA 

I F (NA9P, EQ* 1 I GO TO 50 

DO 4G J = 2 , NA BP 

IF(AL PH A. GT. ABP(JI) GO TO 40 

EAP= < ALPHA- ABP ABP U I -ABP < J- 1 1 I 

IFIE4P.LT .0.) EAP = 0. 

GO TO 50 
40 CONTINUE 
J= NABP 
E AP = 1 . 

C BRACKET MACH NUMBER 

50 IF (NM8P. EQ.l ) GO TO 10 0 

DO 20 I =2 , NNBP 

I F ( MACH.GT . MBFIII) GO TO 20 
EMN=(MACH-MBPII-1)>/ (M BP ( I ) -MBP ( I -1 >) 

I F ( EMN, LT . 0 . ) EMN=0. 

GO TO 30 
20 CONTINUE 

1 = NMBP 
EMN=1. 

30 I Ml = I -1 

I F (NABP. EQ. 1 > GO TO 120 

C INTERPOLATE DATA 

DO 93 K = 1 » NCM A X 
JK= (K-l ) * NABP* J 
JN1 K= JK -1 

PA=(0ATA( L,I, JKI-OATACL, I Ml ,JK 1 1* EMN+ OATA (L, I Ml, JK) 

PB= (DATA (L , I , JH1K I -0 AT A(L* I Ml, JM1 K) J *EMN*OATA ( L, IM1, JM1KI 
93 X{KI=(PA-P8)*EAPfPB 
GO TO 200 

100 IF(NABP.EQ.l) GO TO 140 

C INTERPOLATE IF ONLY 1 MACH BREAKPOINT 

00 110 K= 1 , NCM AX 
JK=(K-1)*NABP«-J 
JM 1K= JK- 1 

11 0 X (K)=0ATA (L,1,JM1KH*EAP» (OATA (L,1,JKI -OATA (L, 1, JM1KI) 

GO TO 203 

C IF ONLY 1 ALPHA BREAKPOINT 

123 DO 130 K= 1 , NCM AX 

130 X<KJ = (OATA(L,I,K> -OATA (L, I Ml , K 1 1 ’EM N* D AT A ( L , I Ml ,K) 

GO TO 200 
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C IF ONLY 1 ALPHA ANO 1 MACH PP^AKPOINT 

140 GO 153 K=1,NCMAX 
150 X(K)=QATA(L,l»K) 

200 RETURN 
END 


INTE 573 
INTE 5 8 C 
INTE 593 
INTE 600 
INTE 610 


SUBROUTINE PMAT 


Description: Subroutine PMAT punches a matrix on cards in an 8F10.5 format, 


Subroutine 

listing: 




SUBROUTINE PMAT ( A) 

PMAT 

0 

c 

PUNCHES A MATRIX 

PHAT 

10 


COMMON /ALLDIM/ max, MIX 

PMAT 

23 


REAL A < 1 ) 

PMAT 

30 


I I = A( MAX) 

PM AT 

40 


JJ=A(2*MAX) 

PMAT 

50 


WRITE(2,100<11 A <3*MAX1,II, JJ 

PMAT 

60 


KE= (JJ-1) *MAX 

PHAT 

70 


00 20 1=1,11 

PMAT 

80 


KEND=I*KE 

PMAT 

90 

20 

WRITE <2 , 10011 < A (K 1 ,K=I ,KENQ,MA X) 

PMAT 

1Q0 


CALL ASPIT(A) 

PMAT 

110 

100 c 

FORMAT ( A4 ,4X, 12,110) 

PMAT 

120 

1001 

F ORM A T ( 8F 10 . 5 ) 

PMAT 

130 


RETURN 

PMAT 

140 


END 

PMAT 

150 


SUBROUTINE PMAT1 


Description: Subroutine PMAT1 punches a matrix on cards in an 8E10 . 3 format . 

Programing notes: This subroutine is needed in addition to PMAT because the 
APRA and APRB matrices may contain large values but do not need as many signifi- 
cant figures as other matrices. 

Subroutine listing: 



SUBROUTINE PMATl(A) 

PMAT 

0 

C 

PUNCHES A MATRIX IN E FORMAT 

PM A T 

10 


COMMON /ALLDIM/ MAX, MI X 

PMAT 

20 


REAL A ( 1 ) 

PMAT 

30 


II = A <*AX> 

PMAT 

40 


J J= A ( 2*MAX) 

PMAT 

50 


WRITE (2, 1000 1 A (3* MAX 1 , II , JJ 

PMAT 

60 


KE= ( J J-l 1 *MHX 

PMAT 

73 


00 2 j 1=1,11 

PMAT 

33 


KEND=I*KE 

PMAT 

90 

20 

WRITE (2,13311 (A (K ),K= I ,KENO, MAXI 

PMAT 

100 

1000 

F0RMAT(A4,4X, 12,110) 

PMAT 

110 

1301 

FORMAT C8E10. 3 ) 

PMAT 

120 


RETURN 

PMAT 

130 


END 

PMAT 

140 
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APPENDIX C — Continued 
SUBROUTINE RDSET 


Description: Subroutine RDSET is user supplied; the subroutine listed here is 

a sample. This subroutine should do any initialization or input required before 
calling subroutine TAPEIN . 


Subroutine listing: 



SUBROUTINE ROSET 

ROSE 

1 

c 


ROSE 

10 

c 

THIS SUBROUTINE SHOULD INCLUOE ANY INITIALIZATION DESIREO FOR 

ROSE 

20 

c 

READING THE INPUT T APE , FOR INSTANCE SPECIFYING CHANNEL NUMBERS. 

ROSE 

30 

c 

DATA SHOULD BE PASSEO TO SUBROUTINE TAPEIN WITH LABELLED COMMON 

ROSE 

40 

c 

BLOCK /TAPOAT/ 

ROSE 

50 

c 

THIS SAMPLE VERSION READS THE NUMBER OF WORDS ON THE INPUT TAPE 

ROSE 

60 

c 

AND THE CHANNEL NUMBERS OFTHF SIGNALS NEEDED 

ROSE 

70 

c 


ROSE 

80 


COMMON /TAPOAT/ NWORO,ICHAN 

ROSE 

90 


INTEGER ICHAN(LQ) 

ROSE 

100 


REAO (1,1000) NWORD 

ROSE 

110 


READ (1,1000) ICHAN 

ROSE 

120 


WRITE (3 , 2000 ) NWORD, I CHAN 

ROSE 

130 

1000 

FORMA T ( 1 6 15 ) 

ROSE 

140 

2000 

FORMATf 20H0INPUT FILE CONT A INS ,1 5.22H OATA WORDS PER RECORD/ 

ROSE 

150 


9H CHANNELS/dOX, 2015) ) 

ROSE 

160 


RETURN 

RDSE 

170 


END 

ROSE 

180 
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APPENDIX C - Continued 
SUBROUTINE TAPEIN 


Description: Subroutine TAPEIN is user supplied; the subroutine listed here 

is a sample. This subroutine should be written to read data in the form available 
for a particular flight program . The comment cards and sample program illustrate 
the conventions required for interface with the rest of the program . 

Subroutine listing: 


5 


10 


15 


20 


25 


30 


35 


40 


SUBROUTINE T A PEIN ( 0 A T A , T I HE , N FRAME t ST , ET) 

C 

c THIS SUBROUTINE SHOULD READ THE INPUT TAPE AND PLACE UP TO 

C NFRAME FRAMES IN THE TIME INTERVAL BETWEEN ST AND ET (START TIME 

C AND END TIME) INTO THE ARRAYS TIME AND OATA 

C THE TIME ARRAY SHOULD CONTAIN HOURS , M INUTES , S ECCNOS , MI LLI SE CONOS 

C THE OATA ARRAY SHDULO CONTAIN THE OATA CHANNELS IN THE ORDER TO 

C WRITTEN ON THE OUTPUT TAPE 

C WHEN THE LAST TIME IN THE REQUESTEO INTERVAL IS FOUNO, 

C NFRAME SHOULD BE SET TC MINUS THE NUMBER OF PR AMES OF CATA 

C BEING RETURNEO 

C 

C THIS SAMPLE VERSION READS AN UNFORMATTED TAPE AND PICKS THE 

C SIGNALS OESIREO FROM THE CHANNELS SPECIFIED IN SUBROUTINE RDSET 

C 

COMMON /TAPOAT/ NWORO*ICHAN 

INTEGER ST ( 4 ) ,ET(4) , T IH E < 4 * 1 0 0 > , I CH AN (4 0 ) t IT ( 4 ) 

REAL OATA<40»100) »RECORO(150) 

1ST =S T (4) + 1000MST (3) ♦60*ST(2>+3600+ST( 1) ) 

IET=ET (4) +10 0 0* (ET ( 3 > +60+ET (2) +36Q0+ET ( 1) ) 

1 = 0 

10 READ (15) IT * ( RECORD ( J) * J = l* NWORO) 

ITM=IT (4) ♦1000MIT ( 3) +6 0 + IT (2) ♦3600*IT ( 1) ) 

IF( ITH.LT. 1ST) GO TO 10 
20 1 = 1+1 

DO 30 J=l,4 
30 T I ME ( J * I) =1 T < J) 

DO 40 J=1 *40 
OATA(Jtl) =0. 

IF(ICHAN(J) *EQ.0) GO TC 40 
OATAC J* I > =RECORO( I CH AN ( J) ) 

40 CONTINUE 

I F C I. GF. .NFRAME) RETURN 

IF( ITM.GE.IET> GO TO 100 

READ (15) IT , ( RECORD ( J ) , J=l, NWORO) 

I TM=I T (4) + 1000MIT (3) + 6 0 * IT (2)+3600+IT (1) ) 

GO TO 20 
100 NFRAME=-I 
RETURN 
END 


TAPE 

O 

TAPE 

10 

TAPE 

20 

TAPE 

30 

TAPE 

40 

TAPE 

50 

TAPE 

60 

TAPE 

70 

TAPE 

00 

TAPE 

90 

TAPE 

100 

TAPE 

110 

TAPE 

120 

TAPE 

130 

TAPE 

140 

TAPE 

150 

TAPE 

1 60 

TAPE 

170 

TAPE 

180 

TAPE 

190 

TAPE 

200 

TAPE 

210 

TAPE 

220 

TAPE 

230 

TAPE 

240 

TAPE 

250 

TAPE 

260 

TAPE 

270 

TAPE 

280 

TAPE 

290 

TAPE 

300 

TAPE 

310 

TAPE 

320 

TAPE 

330 

TAPE 

340 

TAPE 

350 

TAPE 

360 

TAPE 

370 

TAPE 

380 

TAPE 

390 
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APPENDIX C - Continued 


SUBROUTINE CONDI 


Description: Subroutine CONDI is user supplied, and is described by the 

comment cards . 

Subroutine listing: 



SUBROUTINE CONDI 


COND 

o 

c 



CONO 

10 

c 

THIS SUBROUTINE SHOULD 

INCLUDE ANY INITIALIZATION NEEDED 

CONO 

2 0 

c 

FOR SUBROUTINE CONO TO 

DETERMINE THE FLIGHT CONDITION 

COND 

30 

c 

TYPICAL ITEMS INCLUOED 

HERE MIGHT BF TABLES OF INERTIAS AS A 

COND 

40 

c 

FUNCTION OF GROSS WEIGHT 

CONO 

50 

c 

ANY OATA MAY BE PASSED 

TO SUBROUTINE CONO THROUGH A LABELLED 

CONO 

60 

c 

COMMON BLOCK /TABLE/ 


CONO 

70 

c 

SUBROUTINE SUPPLIED IS 

A NULL SUBROUTINE 

COND 

SO 

c 



COND 

90 


RETURN 


CONO 

100 


ENO 


CONO 

110 


SUBROUTINE COND 


Description: Subroutine COND is user supplied. It automatically obtains the 
flight condition from the channel averages computed by TAPERD . The subroutine 
listed illustrates the method of doing this . 

Subroutine listing: 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE CONC 

THIS SUBROUTINE SHOULD SPECIFY THE FLIGHT CONDITION ANO OT^R 
PARAMETERS NOT READ IN THROUGH NAMELIST /COND/ 

AVG CONTAINS THE AVERAGE VALUES OF EACH CHANNEL REAO OFF THE INPt 
TAPE IF THEPE NAS ONE PEAO 

THE USER MAY CHOOSE TO USE THESE AVERAGE VALUES FOR THE FLIGHT 
CONDITION INSTEAD OF READING IT IN 

FOR INSTANCE, IF ALPHA IS TO PE OBTAINED FROM THE CHANNEL AVERAGE 
THE STATEMENT 
ALPHA=AVG (1 ) 

WOULO BE INCLUCEO MERE 

THE SEVERAL EXTRA CHANNELS AVAILABLE MAY BE USED TO OBTAIN 
FUEL WEIGHTS OR OTHER QUANTITIES NEFOEO TO COMPUTE THE INERTIAS 

THE SUBROUTINE SUPPLIEO OBTAINS A LPHA , THET A * PHI , DE TP I M *0 , V ,A NO 
MACH FROM SIGNAL AVERAGES ANO COMPUTES 0 AND V FROM ALTITUDE 
ANO K IAS ( KNOTS INDICATED AIRSPEEO) IF THESE ARE MORE READILY 
AVAILABLE (INDICATEO BY A NON-ZERO VALUE OF KIASI 

COMMON /OPTION/ T APE , 0 EC K, RE AO 

COMMON / F LCONO / ALPHA , THETA , Q, V , M AC H, I X , I Y , 1 1 , IXZ * W , PHI , CG ,K I AS , 
ALT,LONG,PARAM,FLT,CAS£,AVG, DELTA, ST, ET, OETRIM 
REAL MACH, IX, I Y , 17 , I XZ , KI AS , A VG ( 4 0 > 

INTEGER ST (4> ,ET(4) ,FLT,CASE 
LOGICAL OELTA (4), LONG, TAPE, DECK, REA D 
IF< .NOT. READ) GO TO 10 
ALPHA=AVG (1 ) 

T HET A = A VG ( 4 J 
PHI=AVG<12) 

DETR I M=A VG (6) 

Q-AVG(15> 

V=AVG<3) 

MACH= AVG< 14) 

10 IF<KIAS. EQ.n . > RETURN 
Q=(KI AS*. 0582) 

DAL T= AL T* . 00 1 

V=i.6S8*KIAS*EXP(DALT* I. jl37*5» .00 0C 975*OALT) ) 

RETURN 

END 


CONO 

0 

CONO 

13 

CONO 

20 

CONO 

30 

rcoNO 

4 C 

COND 

5P 

CONO 

60 

CONO 

79 

CONO 

80 

CONO 

95 

CONO 

10 0 

CONC 

110 

CONO 

125 

CONO 

130 

COHO 

140 

CONO 

15C 

CONO 

16C 

CONO 

175 

COND 

180 

CONO 

190 

CONO 

20 3 

CONO 

210 

CONO 

220 

CONO 

230 

COND 

240 

CONO 

250 

CONO 

260 

CONO 

275 

CONO 

280 

COND 

290 

CONO 

300 

CONO 

310 

COND 

320 

CONO 

330 

CONO 

340 

CONO 

350 

CONO 

360 

COND 

370 

COND 

380 

CONO 

390 
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APPENDIX C - Concluded 
SUBROUTINE LOAD1 

Description: Subroutine LOAD1 reads a matrix from cards. 

Subroutine listing: 


SUBROUTINE LOAOl(A) 

LO AO 

0 

COMMON /ALLDTM/ MAX, MIX 

LOAD 

10 

REAL AU) 

LO AO 

20 

M A X 3= 3*MAX 

LOAD 

3 0 

RE AO (1 , 1 0 0 0 ) A (MAX3 > , II, JJ 

LO AD 

40 

A (MAX > = II 

LO AO 

50 

A ( 2*M A X) = J J 

LOA 0 

50 

KE= ( JJ-1 > *MAX 

LOAD 

70 

00 1C 1=1*11 

LOAD 

SO 

KEND= I>KE 

LOAD 

90 

RE AO (1 ,1301) (A< K) , K= I, KEND, M AX) 

LOAD 

no 

E0RMAT( A4,4X, 12, 110) 

LOAD 

no 

FORMAT (BF10. 4) 

LO AO 

120 

RETURN 

LOAD 

no 

EN0 

LOAD 

140 


SUBROUTINES ASPIT, AMAKE , AND AZOT 


Subroutines ASPIT, AMAKE, and AZOT are identical to those used in the MMLE 
program . 
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APPENDIX D 


SAMPLE CASE FOR THE SETUP PROGRAM 


This appendix presents a sample check case for the SETUP program . 


INPUT CARDS 


PUNCH Of CK 
START 

JW INO NM9P=2,NAPP=2 ,NCL0=8 ,L0NG(1 >=T,SPAN=15 CB4R=6. »S=1QC $EN0 
SAMPLE 

0 . 

CL 2 

.1 .5 

0 • . 4 

CO 2 

.0 5 .1 

.07 .12 

CLA i 

.07 .065 

COA 1 

.01 .015 

Cm a i 

-. 00 5 - . CO 6 

CLDE 1 

.01 .01 

C MO E 1 

-.009 -.011 

CMQ 1 

-5, -5. 

.3 .7 

.0 5 . 

0 . 

1 02 05 1000 1C 2100000 SAMPLE CASE 1 

iCQND IX = 3C 0 . .IY = 20 30. , 17 = 2010, f IXZ=1Q . *W=25 00 ..LONG=T, 

FLT = 1 , CASE = 1 »Q=5C 7=450 . » ALPHA = 4 • ♦MACH=. 5.$ ENO 
102512000 102522GC0 SAMPLE CASE 2 
iCOND C ASE= 2 t 0=60 . t 7 = 50 0 . ♦ Al°HA= 3 « , MAC t-=. 55* *E KD 
-1 
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APPENDIX D - Continued 


OUTPUT LISTING 


SAMPLE WIND TUNNEL DATA. REF CG * .250 CLATl, .250 (LONG) PER RAOIAN? F 

CL 



. 1GQC 0 E* 00 

•5QCQ0E+0G 


0 . 

. 40 GOO E + 00 

CD 


■5QGCQE-01 

. 10 0 00 E+-0 0 


• 7000 QE-G1 

. 12 0 0 0 E+ 0 G 

CLA 


.7GGUCE-Q1 

. 650 00 E- 0 1 

CD A 


. 10GQ0E-01 

. 150 0 0 E-0 1 

CMA 


-.50CLOE-02 

60 COOE-02 

CLDE 


. 100Q0E-01 

. 10 000 E — 01 

CMOE 


- . 9000 0E- 02 

1100QE-01 

CMQ 


-.50G00E+C1 

50 003E*-01 

ALPHA 

breakpoints 



.70000 

.70001 

MACH 

BREAKPOINTS 



G.OOCQO 

5.JGOOC 

PARAM 

breakpoints 
0 . 00000 
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APPENDIX D — Continued 



FLIGHT t CASE i 


TIME 10 20 

51 0 TO 1C 

21 0 0 LONGITUDINAL? T 

C G NOT 

SPECIFIEO. OE FAULTEO TO WIND 

TUNNEL. 





ALPHA 

= 4. CO MACH s .500 Q = 

50.0 

V = 

450.0 CG = 

♦250 PARAM = 

O.OOCQ 

A 

- • 5fl 41 E ♦ 0 0 •1QOOE+31 

4 BY 

-Q . 

4 

-0 . 




-.43d3Em -.5G00E+Q0 

0 . 


0. 




- • 3970E ♦■Ol 0, 

-0. 


3217E+0 2 




0. .10G0E+Q1 

0 . 


0 • 



B 

- * M 92E-0 1 -0. 

4 BY 

-0 . 

5 

-0 . 

•4204E-01 



-.7907E+01 0. 

0. 


a. 

. 3Q63E+QQ 



. 450 4E ♦ 3 0 -0. 

-0 . 


-o . 

- • 590 OE *0 1 



0. 0 . 

0 . 


o . 

0 . 
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APPENDIX D - Continued 


FLIGHT 1 CASE 


TIME 10 25 12 


0 TO 10 25 22 


0 


LONGITUDINAL? T 


CG NOT SPECIFIED. DEFAULTED TO WIND TUNNEL. 


ALPHA = 

3.00 HACK = .550 Q = 

60.0 

V = 

50 0.0 CG = 

.250 PARAH 

A 

- • 630 4E «■ 30 • lQvi QE +0 1 

4 BY 

-0 . 

4 

-0, 



-.5270E+G1 -.5400E+QQ 

0 . 


0. 



-.50 65EO1 C. 

-0 . 


-.3217Ef02 



0 . . 10 3 0E> 0 1 

0 . 


0 . 


9 

-.8847E-01 -0. 

4 BY 
-0 . 

5 

-Q. 

• 2165 E-3 1 


-.9509E+31 0. 

0. 


0 ♦ 

. 2759E»Q0 


• 540 5E +• 30 -0. 

-0. 


-a. 

- .7164E>01 


0. 0 . 

0 . 


o . 

0 . 
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APPENDIX D — Concluded 
PUNCHED CARD OUTPUT LISTING 


SANPLE FLIGHT 1 CASE 1 MACH* ,50G ALFFA= A. 00 PARA M = 0.C0 

tlNPUT GR0SWT= 250 0 . 1 1 X= 300 . , I V* 2000 . ,12= 2000 . ,IXZ= 10.0, 

Q= 50.0 ,V = 450.0 ,PUNCH=F ,TIMESC= .5 ,80TH=T, 

ZH AX ( 31 = 1 C 0 0 . , 

MMAPR=0. , ALP HA = 4.00 ,MACH= . 50 0 ,CG= . 250 ,PARAM= Q.J0Q0, 

LONG= T , S= 100. » S D A N = 15,00 ,C6AR= 6.00 ,SPS= 0,, $ENO 

102051 0 1021 0 0 

A 4 4 

-. 5641 2 1.000 00 -Q. 0 000 0 -0 , 00000 

-4.38313 - . 50 C OO 0.0 000 0 0 . 000 0 0 

-3.97020 0.00003 -D.0O0C0 -32.17200 

0.00000 1,00000 0.00000 0.00000 

8 4 5 

-.08192 -0.00000 -O.00C00 -0.00000 .04204 

-7.90682 0.00000 0.00000 0.00000 .30600 

. 45040 -0 . 000QL -Q. 0 0000 -0.00000 -5.90 024 

0.00003 G. 0 0 000 O.OCOGC 0.00 000 0 . 0 0 0 0 0 

ENDCASE 

SflMPLE FLIGHT 1 CASE 2 M A CH = . 550 ALPHA= 3.00 PARAM= Q.GO 

tINPUT GROS WT= 2500. ♦ I X= 3C0. ,IY = 2000 . , 1 7= 2C0C. ,IXZ= 10.0, 

0* 60*0 ,V = 500.0 ,PUNCH=F ,TIHESC= .5 ,BOTH=T, 

ZMAX(3 ) = IOC 0. , 

WM A PR = 0 * t ALPHA= 3 . 0 C ,HACH= . 550 ,CG= . 250 ,PARAM= 0.0000, 

LONG=T, S= 100. ,SPAN= 15.00 ,C9AR= 6.00 ,SPS= 0., *ENO 

102512 0 102522 0 

A 4 4 


-.63044 

1.00000 

- 0.00000 

-0.00000 


-5. 2700 7 

-.54000 

0 . Q 0000 

0.00000 


-5.06514 

O.OCOOO 

- 0.00000 

- 32. 17200 


0.00000 

1.00000 

c 

0 .0 ocoo 

0 . 00 0 00 


-.08847 

-0. 00000 

- 0.00000 

-L* . 000 00 

. 32165 

-9.50881 

0.00000 

0.00000 

0.00000 

.27594 

.54048 

-0 . 000 OG 

- 0.00000 

-Q . 0 0000 

-7. 16407 

0.00000 

0.0G00G 

9 .00000 

0 , 000 0 0 

0. 00 000 


ENOCASE 
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APPENDIX E 


SUMARY PROGRAM AND SUBROUTINES 


Listings of the main program and the subroutines used in the SUMARY program 
are presented together with supplemental information . 


MAIN PROGRAM SUMARY 


Description: The main program SUMARY sets defaults , reads the NAMELIST , 

and initializes variables . 


Program listing: 

PROG PAM SUM ARY < I NPUT , 0 UTPUT t T A PE6 9 ♦ TAPE 1=1 NPUT , T APE 3 =OUTPUT> 

C 

C SUMMARY PLOT PROGRAM FOR MMLE OAT A 

C 

COMMON /ALLOIM/ MAX, MIX 
COMMON /LINCOM/ HGT 

COMMON /WTDATA/ NCLA ♦ NCL 0 . A BP , M8° , OP , N CM AX , LO N G 
COMMON /CGCOP/ SHIFT ,CGLA,CGLQ , COB 
COMMON /N BPS/ NMBP,N A0P, N8P, NP ARAM 
COMMON /INS/ NPLOT,WTPLOT 

COMMON /SUMDAT/ YLOCtXSKIP, ALE N , ASC AL2 , YSTEP, A MI N, T6BL AB ,F OA T A , 

foatac, title 

COMMON /PSCL/ CRFACT,IWTl,IWT2 ,YLEN2,IT,NPARM 

REAL TITLE(20)*ARP(16) ,8P(9),WPP(16),CATA(3QJ0),FDATA(500Q), 

- FOATAC(5COOI , BUF { 1Q2 41 ,F0 AT ( 20 *. ) ,FDATC (200 ) , ALFS (200 > , 

TABLAB(2 ) ,MLAB( 2) ,PLAB (?) 

LOGICAL PRINT, LDNG(8 ) , LATR ( 8) , DEG,R A0,fl00Y, STA0,SH IFT , WT PLOT 
DATA ML AO/ LH MACH, 1H / , PL AO / 4HP ARA , 1 HM / 

NAMFLIST /WIND/ MRP, NA0°,NMOP, NCLA, NCLO*RAO*OEG, BODY, STA3, 

LONG, LATPfPPI NT, CGLA,CGLO*NP ARAM, SHIFT, WTPLOT , CPF ACT , 

AMIN , AM AX , ASCALE, YLEN, X 0 I S T , CB AR , S PA N 
N BUF = 1C 24 
H A X= 4 

READ (1,1000) TITLE 
WRITE (3 , ?000 ) TITLE 
HGT=. 07 
SHIFTr.FALSE. 

CBAR=0. 

SPAN* 1 • E+50 

nparam=o 

NCL A= 0 

NCL 0=0 

NBP=1 

CGLA=,25 

CG LO= • 2 5 

NABP=1 

NMBP=1 

PRINT*. FALSE. 

DO 5 1*1*3000 
5 DATA ( I) =0 . 

OO 10 1=1,8 
LA TP (I) = . FALSE . 

LONG( I) = . TRUF. 

10 R P ( I ) =0 . 

R A 0= . FALSE. 

STAB= .TRUE. 

BOOY=. FALSE. 

WTOL0T*. TRUE. 

CRFAC T = 1 • 

A MIN = 0 . 

AMAX= 12. 

ASC4LE=1. 

VLEN= 10. 
xoist*ic. 

REA0 (1,WIN0) 

NPAR M =N p A R AM 

cob=crar/span 


MAIN 

0 

MA IN 

1C 

MAIN 

20 

MAIN 

30 

MAIN 

40 

MAIN 

50 

MA IN 

60 

MAIN 

70 

MA IN 

0} 

MA IN 

B0 

MAIN 

100 

MA IN 

110 

MAIN 

120 

MAIN 

130 

MA IN 

140 

MAIN 

15 0 

MAIN 

160 

MA IN 

170 

MA IN 

150 

MAIN 

1 90 

MAIN 

270 

MA IN 

210 

MA IN 

220 

MA IN 

230 

MAIN 

240 

MAIN 

250 

MA IN 

260 

MAIN 

270 

MA IN 

280 

MS IN 

290 

MAIN 

3 ' 0 

MA IN 

310 

MAIN 

320 

MAIN 

330 

MA IN 

340 

MA IN 

350 

MAIN 

360 

MAIN 

370 

MA IN 

380 

MAIN 

390 

MAIN 

0 

MA IN 

410 

MA IN 

42C 

MAIN 

43C 

MAIN 

440 

MAIN 

450 

MA IN 

467 

MAIN 

470 

MA IN 

480 

MA IN 

49P 

MA IN 

5-; 0 

MA IN 

5 1 C 

MAIN 

520 

MA IN 

530 

MAIN 

540 

MA IN 

550 


MAIN 560 
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APPENDIX E - Continued 



YLEN2=YLEN/2. 


MAIN 570 


YLOC=D. 


MAIN 580 


ASCAL2=ftSCALE*2. 


MAIN 590 


ALEN = { AMAX-AMIM/ASCAL2 


MAIN 600 


XSKIP=ALEN4X0IST/2. 


MAIN 610 


YSTEP=YLEN2+1. 


MAIN 620 


DO 20 1 = 1 ,8 


MAIN 630 

2C 

I F (L ATR < I 1 ) LONGC I)*. FALSE, 


MAIN 640 

C 

READ WIND TUNNEL OATA 


MAIN 650 


CALL H IND IN { DA TA , NBP f N HOP , N A BP , BODY, PRINT, RAO) 


MAIN 660 


IF(SHIFT) WRITE <3,2001 >CGLA,CGLO 


MAIN 670 


IF (CRFACT gNE • 0 • ) WRI TE < 3 , 20 0 2) CRF ACT 


MAIN 63C 


IHTi=l 


MAIN 690 


I WT2= 1 


MAIN 700 


DO 15 I = 1 , N A8P 


MAIN 710 


I F < ABP < 11 • LT« A M IN 1 IHTl*I*l 


MAIN 720 

15 

IF (A8P< I) .LE.ANAX) I NT 2=1 


MAIN 73C 


NCMX= NCMA X + 2 


MAIN 740 


N0=NM9P*2 


MAIN 750 


T A0LAB (1 ) =HLA6 <11 


MAIN 760 


T ABL A8 < 2 ) =MLAB<2> 


MAIN 770 


IFtNPARAH.LE. 0 ) GO TO 25 


MAIN 780 


ND=NPARAH*2 


MAIN 790 


TABLA9I 1) =PLABtl1 


MA I N SOD 


TABLAB(2)=PLAB <21 


MAIN 810 

25 

N02*N0/2 


MAIN 820 

C 

RE AO FLIGHT DATA 


MAIN 63C 


CALL FLIGHT < NC NX, NO, FD AT A, F OAT AC) 


MAIN 840 


CALL PLOTS IB UF , NBUF, 69 1 


MAIN 850 


CALL FACTOR < • 7 874021 


MAIN 860 


CALL PLOT <0. 5,-3) 


MAIN 87C 

C 

READ PLOTTING INSTRUCTIONS 


MAIN 880 

30 

CALL INSTR 


MAIN 890 


IFINPLOT, LE. 0 ) GO TO 50 


MAIN 900 

C 

HAKE PLOTS 


MAIN 910 


OO 4P 1 1* 1 , N PL O T 


MAIN 920 

40 

CALL SUHPLTIFDAT.FDATC , A LFS , N02 , O AT A , N0P, NMBP, NA9P 1 


MAIN 930 


GO TO 30 


MAIN 940 

50 

CALL PLOT <0. ,0 .,9991 


MAIN 950 

IDO 0 

FORHA T { 20 A41 


MAIN 960 

2000 

FORMAT < 5 1 H1MMLE SUMMARY PLOTTING PROGRAM **** 1 

MAY 1974/ 

MAIN 970 


1H0, 20X, 2C A41 


MAIN 980 

200 1 

FORMAT < 55H0CNP AND CMA WILL BE CORRECTED TO THE WIND 

TUNNEL REFER 

, NA IN 990 


8HENCE CGS,F1Q.3, 7H < L A TR 1 , F 1C .3 , 7H (LONG)) 


MA IN1000 

2002 

FORMAT < 48HDCONFinENCF LEVELS WILL BE PLOTTED MULTIPLIED 9Y,F5,t> 

MA IN101C 


STOP 


MAIN102C 


END 


MA IN1030 
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APPENDIX E - Continued 
SUBROUTINE FLIGHT 


Description: Subroutine FLIGHT reads and sorts flight data. 

Programing notes: Data are stored in the arrays FDATA and FDATAC . The 
FDATA array contains derivative values, and the FDATAC array contains confidence 
levels. Note that the sign of the X and Z coefficients is changed for longitudinal 
data to agree with the more common N and A (axial) coefficients. The flight C^ 

a 

and C are shifted to the wind-tunnel reference center of gravity if SHIFT = T . 

n P 

LONLOC and LATLOC give the positions of data in the A and B matrices considered 
as vectors . 

Subroutine listing: 


C 


C 

c 

c 

c 


c 


SUBROUTINE FLIGHT <NCHX , NO , FOAT A , FDATA C ) 

READS FLIGHT DATA AND SORTS BY MACH OP PARAM 
COMMON / WTDAT A / NCL A , NCLO* A BP ,WBP ,RP , NCMAX , LONG 
COMMON /CGCOR/ SHIFT ,CGLA,CGLO,CO0 
COMMON /CASES/ NCASE 

COMMON / NRPS/ NMPP,NAQP, NBP , NPARAM 

REAL FQATA(NC MX, ND,1), FDATAC (NCMX ,N 0, l),ABP<16>,MeP(16),9P<5>, 

A <16 >,8(32), ACC 161 , BC<32) , MA CH , T I TL (9 > 

LOGICAL L0NGC8) , SHIFT 

INTEGER NCASE <32 > , L0 NL CC ( 2 1 ) , L A TL 0C ( 1 9 ) 

DATA PLT/4HPL0T/, ALA T/ 4HL AT R/, LONLOC/1,2,3,6,9,10,11,1,2,3,5,6,7, 
9, 10, 11,13, 14, IE, 17,18/, LA TLOC/1, 2*3, 6, 7, 10, 11, 1,2*3, 5, 6*7, 
9,10*11,13,14,15/ 

ND2=ND/2 
DO 10 1=1,32 
1C NCASE<I)=0 

2C READ (1 , 1000 ) T YPE , TIT L ,M ACM , ALPHA , PAR AM , C G 
IF (TYPE. EQ.PLT ) RETURN 

WRITE (3,2000) TYPE, TI TL , M ACH , AL PH A , P AP A ►, CG 

FLIGHT DATA IS STORED AS F D A TA <C 0 EF FI C IENT , GROUP , C ASE ) 

WHERE GROUP= I NOEX IF LONG, OR INDEX*ND/2 IF L ATR 

AND INDEX IDENTIFIES EITHER THE MACH OR (IF NPAR AM. GT .3 > 

THE EXTRA PARAMETER 
CALL L 0 AO 1 (A ) 

CALL L0ADK9 > 

CALL LOA01CAC) 

CALL L0ADKBC) 

IN0EX=2 

I F (ND2* L T , 2 ) GO TO 60 
I F (NPARAM* GT, 0 > GO TO 40 
DO 3C INOEX=?,NMPP 

IF ( MACH ,LT. (MPF (I NOEX) ♦MDP ( INOEX- 1 ) )* . 5) GO TO 60 
30 CONTINUE 

I NDEX=NM8P»1 
GO TO 60 

4C OO 50 IN0EX=2 , NPARAM 

IF(PARAM.LT. (BP(INOEX) +BP(INDEX-1) 1 5) GO TO 63 
50 CONTINUE 

IND£X=NPARAM«-1 
60 IN0EX=INDEX-1 

IF{TYPE.EO. ALAT ) GO TO 110 

LONGITUDINAL - CHANGE SIGN OF X AND 7 DERIVATIVES 
DO 70 1=1*11,2 
7C A ( I ) =-A (I) 

DO 80 1=1,19,2 
8C B(I)=-0(I> 

NCAS = NCASE (INDEX) >1 

IF (SHIFT) A ( 2 ) = A ( 2) ♦ (CGLO-CG) * A ( 1 ) 

OO 130 1=1,21 

IF ( I » GE , 8 ) GO TO 90 

FOOT A (I, INOFX,NCAS>= A ( LONLOC ( I ) > 

FOATACCI,INOFX,NCAS) =AC (LONLOC Cl I l 
GO TO 100 

90 FDATA (I, INDEX, NC AS) =B( LONLOC (I ) ) 

FDATAC (I, INDEX ,NC AS) =8C (LONLOC (I) ) 

100 CONTINUE 
GO TO 150 
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FLIG 
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FLIG 
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110 


FLIG 

570 


NCAS=NOASE(I NOFX) +1 

FL IG 

580 


IF (SHIFT) A m = A(3>+ (CGLA-CGl*COB*A (1 ) 

FL IG 

590 


00 130 1=1,19 

FL IG 

510 


IF(I.GE. 5 ) GO TO 123 

FL IG 

610 


FDATA (I ,INCEX f NC6S>=AILATL0C<I ) ) 

flig 

620 


FOATAC < I , INOF X t NFAS) =AC (L A TLOC (I ) ) 

FL IG 

630 


GO TO 130 

FL IG 

640 

120 

FOATA (I ,INCFX,NCAS)=9(LATLOC<I M 

FLIG 

65C 


FOATAC ( I , IN9EX,NCAS)=0C(LATLOC (III 

flig 

660 

13 C 

CONTINUE 

Ft IG 

670 

150 

NCASE (I NOEX) =NCAS 

FL IG 

680 


FOAT A < 22, INDEX, NC AS) = ALPHA 

FLIG 

690 


FOATA(23» IND c X,NCAS! =M ACH 

FLIG 

70 0 


FOATAC (22* INDEX, NCAS) = FA f?AM 

FL IG 

7 1 P 


FDATAC(23, INOFX,NCAS)=CG 

FL IG 

720 


GO TO 20 

FLIG 

73C 

100 3 

FORMAT ( 10 A <* * 4F10. 4) 

FL IG 

740 

20 0 r 

FOPMA T(lHQ,A4,EX,9A4,4Fn,4) 

FL IG 

75C 


END 

FLIG 

760 



APPENDIX E - Continued 


SUBROUTINE INSTR 

Description: Subroutine INSTR reads plotting instructions. 

Programing notes: The instructions are passed to the rest of the program in the 

following form: 

NPLOT — number of coefficients to be plotted . 

LATLON — 1 if lateral data, 2 if longitudinal data. 

PARM, TOL — parameter value and tolerance. 

LL — number of the predicted derivative data set corresponding to LATLON and 
PARM . 

IDER — parameter numbers that correspond to the coefficients to be plotted. 

YMIN , YMAX — minimum and maximum values for the ordinates. 
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APPENDIX E — Continued 


Subroutine listing: 


c 

c 

c 

c 


subroutine instr 

RFADS INSTRUCTIONS ON COEFFICIENTS TO PLOT, SCALES TO USE, 

ANO THE PARAMETER ANO TOLERANCE FCR FLIGHT POINTS 
00 NOT OVERLAY THIS SUBROUTINE AS S TA R T , OER IV , S MIN ANO SMAX MUST 
BE PRESERVED 

COMMON /NSPS/ NMPP,NA0 P, NBP, NP ARAM 

COMMON /WTDATA/ NCLA ,NCLO, ABP , MBP,RP, NCMAX ,LONG 

COMMON /INS/ NPLOT , W TP LOT 

COMMON /SELECT/ PARA M, TOL , I OER , YH IN , Y M A X, L A TL ON ,0 ER IVS ,LL , WT PL 
REAL OERT V (4) »SMIN(4),SMAX(4),CE p (21,2),YMIN(21>,YMAX(21), 

OER I VS ( 2 1 1 , ABP ( 16 ) » HBP ( 16 ) ,9 P ( 8) 

INTEGER I OER ( 21) 

LOGICAL WTPLOT , WTPL, LONG(0 ) 

DATA ENO,ALON,ALAT,BLANK,STAR/3HEND,4HLONG»4HLATR,1H ,4HSTAR/ 

DATA OER/ 3HCYB , 3HCL3,3HCN8, 3HCLP, 3HCNP,3HCLR, 3HCNR,4HCYQA, LHCLDA, 

4HCN0A,4HCYnR,4HCL09,4HCNCR, 4HCY Cl , 4HCL01 , 4HCN01 , 4HCYC2 , 
4HCL02,4HCN02,2*1H , 

3HCNA,3HCMA,3HCAA t 3HCM0,3FCNV,3HCMV,3HCAV,4HCN0E,4HCMCE , 
4HCA0E,4HCNPC,4HCM0C,4HCA0C, 4H CNO 1 « 4HCM01 , 4HC AO 1 , 4HCN02 , 
4HCMD2,4HCA02.2HCN,2H0E/ 

I F ( S T ART . NE, ST A R) RE AQ (1,1001) 0E p IV ( 1 > , SM IN < 1 > , SM A X ( 1) 

START=STAR 

NPLOT =0 

IE ( OERI V ( 1) . EG. END) GO TO 122 
L ATI ON= 1 

IF(OERI V< 1) ,EQ. ALONI LATLON=? 

NC= 1 9 

IF ( LA Tt ON • EO. 2 ) NC=21 
PARAM=SMIN(1> 

T OL = S M A X ( 1 ) 

WRITE (3,2004) DERI V(l)* FAR AM, TOl 
2C READ (1,1001) (QPRIV(I) ,SMTN(I) , SNA X ( I ) , 1= 1 ,4) 

IF(OERIV(1).EO*ALAT.OR.OERIV(1)*EO.ALON,OR.OERIV(1),EQ.END)GOTO 

00 71 1-1,4 

IF(DERIV( I) , EQ. BLANK) GO TO 00 

NPLOT =NPL OT* 1 

YMIN( NPLOT)=SMlN( I) 

Y M AX (NPL0T) = SMX (I) 
no 31 J=l,NC 

IF(DEPIV( I) • E0.D‘ r R(J,L ATLON) 1 GO TO 60 
3 C CONTINUE 

WRITE (3,2012)OERIV(I > 

STOP 

60 I HER ( NPLOT) =J 

70 DERI VS ( NPLOT) =CERIV(I) 

GO TO 20 

60 REA 0 (1,1001) CEPIV(l) ,SMIN (l) ,SMAX (1) 

9C WRITE (3,2001) <CE p (IOER (I) ,LATLCN» ,1=1, NPLOT) 

100 PARM=PARAM 
WTPL=WTPLOT 

x F (NPARAM ,GT. 0 ) PARM = 0, 

DO 110 11=1, NBP 

IF ( (LONG ( II). ANO. (LATLON.EQ.il) .OR. 

(.NOT. LONG (II ).ANO. (LATLON.EQ. 2) > > GO TC 110 

LL= 1 1 

IF (PARM*BP (II )* (PAPM-BP(TI) WEO.f , ) GO TO 12', 

110 CONTINUE 
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APPENDIX E — Continued 


HRI TE ( 3 , 2003) INST 570 

WTPL=. FALSE. IN ST 5^0 

1001 FORMAT <4(A4,F6.0, F10.Q )) INST 590 

200 1 FORMA T ( 2 7H COEFFICIENTS TO 9F PLOTT FD/ IX , 21 A6 > INST 6.0 

200 ? FOPMATUHG ,A4, 45H IS NOT A VALID DERIVATIVE NAME FOR THIS PLOT) INST 610 

2003 FORMAT ( 30HCNO WIND TUNNEL DATA AVAILABLE) INST 62C 

?00<* FORMA T ( 1H0 ,A4, EH PLO TS ♦ 5 X , 6HP A p AM = t Fl 0 . 4 , 5 X , 1 0 HTOLF P A NCE = , FI 0 . 4 ) INST 630 

120 RETURN INST ^ 4 g 

END INST 65 C 



APPENDIX E — Continued 
SUBROUTINE SUMPLT 


Description: Subroutine SUMPLT plots data for one derivative. 

Programing notes: Most of the data manipulation has been done, and the data 
are ready to plot. Thus this subroutine does little except the actual plotting. 

Subroutine listing: 


SUflPOUTINE SUMPLT (FOflT ,FOA TC ,ALFS,N02 , DAT A ,NRP ,NHRP • NAftP) 

C PLOTS SUMMARY INFORMATION FOR CNF 0E°IVATIVE 

COMMON /SUMOAT/ YLOC,XSKTP, 4LEN,ASCAL2,YSTEP, AMINdABLARfFOATA, 
FOATAC* TITL r 

COMMON /PSCL/ CRFACT, IHT1, IWT2, YLEN2, II,NPARAM 

COMMON /DDAT/ NOPLOT, YMN,YSCALE,NCAS, CPF, WTP,OFRIV , WTO, KWT 

COMMON /W TDAT A / NCLA ,NCL 0, A BP, MRP , RP , NCMA X , LONG 

REAL FOAT<NO?,i>iFOATC<N0 2,l),ALFStNO?,i),OATA<NOP,NMGP,ll , 

FnATA<500n»,FOATAC(500D > , TABLA 0(2) ,A3P(lF),M0Ptl6), f IP(ft) , 
TITLE (2 ) ,WTDU ft, 16) , A«PS <18 ) 

INTEGER NCAS(16> , ISY*8 (16) 

LOGICAL NOPLOT ,L0NG< 8) ,WTP 

DATA TSYMB/1 ,C 1 3 , 6 , 9 , A , 1 1 ,7,8, 8, 9, 8,8/ 

NCMY= NCMAXf? 

N0=ND2*2 

CALL PSCALECNCMX,NO,ND2,FOATA t FOATAC,FCAT,FOATC,ALFS,DATA > NBP, 

NMPP,NARP) 

IFdl.NE.ll GO TO 10 
CALL PLOT (0. ,-YL0C,-3> 

Y L 00 = 3 , 

CALL PLTDAT(YSWrP,l2 .251 
10 IF(NOPLOT) RETURN 
KWT1=KWT-1 
J= C 

00 15 I* I WTl , I WT2 
J=JU 

15 A BPS ( J > = A BP ( I ) 

A BPS <KW T f 1 ) =AM IN 
ABPS < KWTf 2 > = A SC AL 2 
IF( YL OC .NE .C . ) GO TO 3 3 
CALL PL 0 T ( XSK I F , YSTE D , -3) 

CALL SYMBOL!?. ,YSTEP,. 14, TITLE U > ,C . ,4) 
no 23 1=2,20 

2C CALL SYMR0L(99S., YSTFP, . 14, TITLEm 
YLOC= YSTEP 
GO TO 43 

30 CALL PLOT (0 . , -YSTFP, -3 ) 

YLOC=0 . 

4C CALL AXIS <0, ,0. ,FHAl_PHA,-5, ALEN*0 .,AHlN,ASCAL2) 

CALL AXIS(0.t0.,DERrv, 4,YLEN2, < 50, , Y MN , VSCALE) 

CALL SYMBOL ( A LFN, YLEN2 ,.10, 4HSYM 8 , C » , 4 ) 

CALL SYMBOL (ALFN+. 5, YLEN2 , , 1C , T AB LA9, 0 ♦ » 8 ) 

Y 0RG= YLFN2 

00 5* 1 1=1, ND2 

IF (NCAS < r ) ,LF • 0 I GO TO 53 

Y 09G = YORG * * 25 

CALL SYMBOL ( A LFNf .1, YORG ♦•.0 7,. 14, ISYM0 <I> ,0 .,-1) 

BPVAL = MBP < I ) 

IFCNPARAM.GT. 0 ) BPVAL*8P(I> 

CALL NUMBER ( A L EN* .5, YORG,, 1 4,8PV AL , 3, ,2) 

50 CONTINUE 

C PLOT FLIGHT POINTS 

DO 90 1=1, N02 
NCI=NCAS( I ) 

IF(NCI.LE.Q) GO to 70 

isi=isYMem 

DO 63 J = l , NC I 
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XN=< ALFS (It J>- AMIN) /ASCAL2 

YNs(FOATfl.J)- YMN )/YSC ALE 

CALL SYMBOL (XNtYN,.l<»t ISI,0.,-1> 

IF(F0ATC( I,J) .EQ.O.I GO TO 60 

HITE=FOATC(I.J)/ v SCALE 

YNH^YNfHITE 

XNP=XN*.0 3 

X NM = X N- • 0 3 

CALL PLOT « XNH, YNH, 3> 

CALL PLOT ( XN D . YNH » 21 
CALL PLOT (XN. YNH, 3) 

YNH=YN-HI TE 

CALL PLOT (XN ,YNH, 2) 

CALL PLOT (XNM, YNH. 3) 

CALL PLOT ( XNP , YNH . 2) 

6C CONTINUE 

C PLOT WIND TUNNEL DATA 

70 IF ( , NOT * HTP) GO TO 90 

I F ( NPARAM « GT . 0 .AND. I.EQ.l) GC TO 83 
IF (NPARAM ,GT . 0 .OR. NCI.FQ.11 GO TO 90 
80 WTO< KWTM , I) = YWN 
WTO (KWT *2 , 11 = YSCALE 

CALL LINES (APFS, WTO( 1. I ) , K WT , 1 , KWT 1 , I S II 
9C CONTINUE 

YN=-YMN/YSCALE 

IFtYN.LE* 0 . .OR. YN.GT.YLEN?) GO TO 10C 
CALL PLOT < ALGN ♦ YN ,3) 

CALL PLOT <0 . . YN,?> 

100 CONTINUE 
RETURN 
END 


SUMP 5TQ 
SUMP 580 
SUMP 590 
SUMP 630 
SUMP 610 
SUMP 620 
SUMP 63C 
SUMP 640 
SUMP 650 
SUMP 66C 
SUMP 670 
SUMP 680 
SUMP 690 
SUMP 7 j 0 
SUMP 710 
SUMP 720 
SUMP 730 
SUMP 740 
SUMP 750 
SUMP 760 
SUMP 770 
SUMP 780 
SUMP 790 
SUMP 800 

sump eio 
SUMP 620 
SUMP 830 
SUMP 840 
SUMP 850 
SUMP 860 
SUMP 870 
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APPENDIX E — Continued 


SUBROUTINE PSCALE 


Description: Subroutine PSCALE selects flight data points to be plotted on the 

basis of the criteria specified in subroutine INSTR. It places flight data and 
predicted derivatives for a single derivative into arrays for plotting and determines 
ordinate scales if needed . 

Programing notes: Flight data are moved from arrays FDATA and FDATAC to 
arrays FDAT , FDATC , and ALFS . Array FDAT contains the derivative values, 
FDATC the confidence levels, and ALFS the angles of attack. Predicted derivatives 
are selected from array DATA and moved to array WTD. 

Subroutine listing: 


c 

c 

c 


SUBROUTINE PSCALE (NC MX ,N0 , NO 2 , FO A T A , F D AT AC , FO A T, FO AT C, ALFS, OAT A, 
NBP, NM3P, KABP) 

DETERMINES plot scales, SELECTS OATA TO BE PLOTTED 
DATA TO BE PLOTTED IS SELECTFO FROM ARRAYS FDATA AND FDATAC 
AND PLACEC INTO THE SMALLER ARRAYS FDAT, FDATC, ANO ALPS 
COMMON /CASES/ NCASE 

COMMON /PSCL/ CRFACT ,IHT1 , IWT2, YLEN2, II,NPARAM 
COMMON /SELECT/ PARAM, TOL , IOERtYMIN, YMAX,LATLON,DERIVS,LL,HT PL 
COMMON /PDAT/ NCPLOT ,Y MN, Y SCALE , NCA S, C RF , W T P, DERI V , WT C , KH T 
REAL FDATA(NCMX,ND,1),F0ATAC<NCMX,N0, 1>,F0AT< NO 2,1), FDATC (NO 2,11, 
ALFS<ND2,l>,DATA{NPP,NMBP,l),YMlN(21),YMAX<21),7SCm, 
0ERIVS(21 ) » W T 0 ( 1 8 ,16) 

INTEGER I0ER (21>,NCAS( 16) , NCASE (32) 

LOGICAL WTPL , HTP, NOPLOT 
WTP=WTPL 

L0NLAT= ND2* (2-LATLON) 

J0ER= IDER (III 
OFR IV = DER IVS ( I I ) 

zsca >=o, 

?SC( 2 ) =3 . 

C RF = C RF AC T 

IF ( JOER .GT.19 ) CRF=Q. 

IF< JDER.EQ.?!) HTP=. FALSE. 

NOPLOT= . TRUE. 

00 9T JJ=1,N02 
JJL=JJ+LONLAT 
NCJ = f. 

NCASEJ=NCASFt JJL» 

I FtNCASEJ . LE. C ) GO TO 6C 
00 51 1=1 , NC A S E J 

IFt PARAM*FDATAC(22,JJL,I) • NE« 1 • .ANO, 

ABSt PARAM-FD ATACt 22 , JJL, It I. GT. T0L> GO TO 50 
IF(F0ATAC(JDER,JJL,I),LF.D, ) GO TO 5C 
NCJ = NCJM 

FDATt JJ,NC J)=FDATA( JDER, JJL,I> 

FDATC (JJ ,NCJ> = FDATAC (JOER, JJL, T)*CRF 
ALFSt JJ,NCJJ = FCATA(22, JJL, I ) 

7SC <1)=AMIN1 ( ZSC(1),F0AT ( J J , NC J > -FO AT C ( JJ, NCJ » > 

ZSC<2 )= AM A XI <7 SC (21, FDATt J J # NC J1 ♦FDATC ( JJ,NCJ> 1 
5 C CONTINUF 

60 IFt, NOT. HTP) GO TO 85 

I F ( NP APAM.GT, 0 .AND. JJ.EQ.l) GO TO 70 
IFt NPARAM.GT. 0 .OR. NCJ.EQ.il GO TO 85 
7 C K1 = t J0ER-1 )*NABP* IWT1 
KWT=r HT2-I WT1+1 
K2 = K1 ♦IHT2-IHT1 
J = t 

DO 80 I = K 1 * K 2 
J= Jf i 

WTO tJ ,JJ) =0ATA cll,jj,i> 

ZSCtl 1 = AM INI t ZSCt 1) , DA TA (LL , JJ,I) 1 
80 ZSC(2)=AMAX1 (?SC(2)*DATA(Ll»JJ,Il ) 

85 NCASCJJ»=NCJ 

90 NOPLOT= NOFLOT .AND. (NCJ.EQ.il 
IF (NOPLOT ) GO TO 110 
T F ( YMAX ( I I ) . EO. YMINt TI ) » GO TO ICO 
YMN=YMIN( II) 
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APPENDIX E - Concluded 



YSCALE= <YHAX (II)-YMINC II) I / YL r N2 

PSCA 

570 


GO TO 200 

P S C A 

5*0 

ID 3 

CALL SCALES<7SCtYLFN2,2 t .FALGF.) 

PSCA 

590 


YMN=7SC (3 ) 

p SCA 

630 


YSCALF-7SCt4> 

PSCA 

610 


GO TO 203 

PSCA 

620 

111 1 

WRITE (3, 2000 >DFRIV 

PSCA 

630 

2100 

FORMAT {3QHQN0 FLIGHT OATA AVAILAOLF. FOR ,A<*» 

PSCA 

640 

20 0 

RETURN 

PS CA 

650 


ENG 

PSCA 

660 


SUBROUTINES WINDIN , LOAD1 , SCALES, LINES, 
PLTDAT , TIME , AND DATE 


Subroutines WINDIN, LOAD1 , SCALES, LINES, PLTDAT, TIME, and DATE are 
identical to those in the SETUP and MMLE program . 
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APPENDIX F 


SAMPLE CASE FOR THE SUMARY PROGRAM 


This appendix presents a sample case for the SUMARY program . 


INPUT CARDS 


SAMPLE case for sumary 

>H I NO NC L 0= 6 . LONG < 1 ) = T , NA B P= 4 , 90D Y = T , A MAY =24., ASC AL E = 2 . , CRF ACT =10 . , SE ND 
CN 2 

.4 *65 .9 1. 

C NA 2 

.0 75 * 07 .365 .06 

CMA 2 

-.006 -.305 -.008 -.012 

C NO E 1 

.0 2 

C MO E 1 

-. 01 


CMQ 2 


-5 . 

-5. 

-5.2 

-6. 



5. 

.5 

1C. 

15. 

20. 



1 . 

LONG AIRCRAFT Q 

FLT 1 CASE 

1 

0. 00 J 

4.803 

A 3 

4 





-,06973b 

G . 0 C J C 0 Q 

o . oc coo.: 

C05420 



-.005395 

-5.276563 

0 . 33 0 00 b 

o . ooo a oo 



.003742 

c . o o o c o : 

a . 3 a o o c : 

3. CCOGOO 



B 3 

6 





- .00 6 488 

0. 03GG00 

o .cocos: 

C . 000 0 0 0 

-.346488 

• 0 760 22 

- .0 10 056 

o.coocoo 

G.GGOCuC 

G.0000C0 

-2.288 757 

0. OCCGOO 

.003654 

o. o occoo 

o . o o c : o . 

r . 000000 

-.0 28 266 

o .c cococ 

AC 3 

3 





.030720 

c. croc oo 

a .93 000 j 




.000077 

. 362775 

0.003300 




0 . 0 0 0 00 0 

g . c coo on 

0 . CiiOQOO 




BC 3 

5 





.000656 

O.OOGCO0 

0.00000. 

C . 0 0 0 0 0 G 

. 3 04 551 


.000213 

3. G C0G0O 

0. 032 000 

0. 0 00 JOG 

.0 00 825 


0.030000 

0 .0CGC0C 

o . oc oo o: 

0. GOOC 00 

0 .0 00 00 3 


LONG AIRCRAFT B 

FLT 1 CASE 4 

3. GOO 

1C . 0 31 

A 3 

4 





- .068788 

0 « C30C0G 

3 .03 0 0 0 3 

016 320 



- .00404-+ 

-6. 148 3 64 

0 . GO 0 033 

Q . 0 C 0 C 0 0 



.006651 

0.0 DO COO 

0 . P 0 0 3 0 £ 

0 . 0000 oc 



8 3 

6 





- .00637 6 

o. o :ooo 0 

a . 00003 : 

C . GOO 000 

-.653271 

. 1156C3 

- .010248 

0. G300CC 

j . oaooou 

0*033000 

-5.3 28 408 

3.000000 

.DD2856 

o.o sec oa 

Q . OC 00 00 

0.000000 

-.0 11 942 

3. ociocoa 

AC 3 

3 





.031169 

G.DbuOOG 

0 . 000031 




• 0 0 0 G 8 6 

. 4L3856 

j . ac goo: 




0 .0 00 oon 

0. P 00CGG 

0.000003 




9C 3 

5 





.031016 

0 . ocooco 

a. ocooc: 

0,000000 

.013379 


*0C 3 192 

0. 0 3CCOC 

0 . 00 0O<H 

G.COOOOO 

.001911 


C. 033003 

0. 0CCC01. 

0 .COGQOC 

c . 000000 

C .0 00 GOO 


LONG AIRCRAFT B 

FLT 1 CASE 8 

0.000 

13.671 

A 3 

4 





- .051724 

0. 03CC3J 

0 . 00 CO 3? 

026C70 



- .0 J324J 

-2.218513 

0.003000 

C . COO COO 



. 0C5995 

C.O bOOOO 

0 . PC OCCu 

0. OCQQ 0 0 



B 3 

6 





- .019702 

G.C s'OCOG 

0 . 003003 

3. 3 00 30 0 

-.813 776 

.1 12 38 C 

- .0 09046 

0 . QOGCOu 

0. 0C00 LG 

0. 000003 

-6.745284 

-o. c :oc oo 

.0 j2492 

b. 0 JCoOJ 

0. 30GJ? j 

C. L 00 j 00 

-.0 C26H0 

o.roQcoo 

AC 3 

3 





. 0 J 1260 

0 .000000 

a .aacoc: 




.000044 

. 296974 

0 . 000 00 J 




o . coogg: 

C. C C0C 0 J 

D . 3JGOOL 




BC 3 

5 





.t r . 1391 

0.0001 00 

O .00 COCO 

0.003 0 GO 

.0 20 161 


. 0b0 202 

0. D CCCOb 

a .G0oo r Ju 

G.OCOlCC 

.001633 


0 . 0 3 3 L G 1 

D. 0 G0C0. 

0 • 3 ij OC L 3 

c.oaocon 

0 * 3 00 GO 0 



l.C 03 


l.C 00 


1.033 


. 263 


. 260 


.263 
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APPENDIX F - Continued 


LONG AIRCRAFT 8 FLT 1 CASE 11 0. 000 16.399 


A 3 

4 





-.058530 

0.0Q0GQQ 

0 . 00 0 300 

012960 



- .008326 

-2.0 95303 

0 .000000 

0. 000000 



.005033 

0.0 000 00 

0 . 0300 00 

0. 000000 



B 3 

6 





- . 0 13062 

0.0 00 coo 

0 . 0 0 0 0 3 1 

0. QOOGCO 

-.935 426 

.120320 

-.010224 

0.000003 

. 000046 

C .OOOCOO 

-8.717713 

-O.OOOOCC 

.002516 

c.o oocoa 

0 . 00 00 30 

0. G 00 3 00 

.002 881 

0.0 300 0C 

AC 3 

3 





.00 1301 

G.QCCCOJ 

o .ooojoa 




.000051 

.219645 

0 . coco 0 0 




0 . 0 0 0000 

O.OOCGOO 

3 . 00 0 300 




QC 3 

5 





.001209 

0. 00CCQ3 

3 . 000303 

0.300000 

.0 23573 


.000 147 

0. OOOCOO 

o . c o o a o o 

0 . 000000 

.3 Cl 681 


0 .0 0 0000 

0.0000 JC 

U . CO 000 J 

0 . ooocoo 

0.3C0 CO 3 


LONG AIRCRAFT R 

FLT 1 CASE 12 

0. 033 

17.993 

A 3 

4 





-.066610 

0. OODOOu 

o . a a o o o c 

-.015460 



- .00 7499 

-4.851715 

0 . 0 00 300 

0.000000 



.005784 

0 . 0 00 0 0 0 

0 . 000003 

0 . oooooc 



B 3 

6 





.001381 

c.cooooo 

3 . 000000 

C. COOJOO 

-1.3 08667 

.171330 

-.011126 

1) . QC0C.03 

a .oooobo 

0. CCOQOO 

-9. 911 981 

- 0.0 coooo 

.002070 

0 . C GO C 00 

3 .00 03 00 

0 . ooocoo 

.304800 

0 • 000000 

AC 3 

3 





.001335 

0. 030000 

3 . 03 00 30 




.000056 

.222093 

3 .00 3010 




0 .QCOCQO 

0.030033 

0 . 00 00 03 




8C 3 

5 





.001252 

0 . 0 OOCOO 

a . oooooc 

0 . 003C00 

.027691 


* 0 C 0 1 57 

0.0 00 00Q 

0 . 00 C 3 03 

0 . CC3COO 

.002271 


0 .000000 

0.0 C3C00 

0 . OOOOCG 

0.000000 

0.000003 


LONG AIRCRAFT B 

FLT 1 CASE 15 

0.003 

2 C .088 

A 3 

4 





-.061936 

0. Q00C00 

3 .000033 

-.003870 



-.010069 

-3. 778632 

0 . 0 G 0 0 DO 

G • COOJOO 



.006358 

0.0 OOCOO 

a . oooooc 

0. 300000 



9 3 

6 





-.006655 

0. 000030 

o.oocoao 

0. 000000 

-1. J85620 

. 1 48190 

- . 0 1 1 58 3 

0 . 3 30 0 0 u 

o . 3oo jc: 

3. 003000- 

11.9 7743 J 

-0.030000 

.001551 

0. COCO 33 

0.030300 

G . 000000 

.312 342 

0.0 COCGG 

AC 3 

3 





.001470 

3.03CD0G 

0 . oooooc 




.000073 

. 254969 

D.00030Q 




0 .000000 

0 .0 300 00 

0.000003 




8C 3 

5 





.001 046 

O.OOCCOG 

o . oooaoc 

3.000000 

.3 30 336 


.000171 

0. 000000 

0 • CO 0 0 03 

0 . 000 00 0 

.002594 


0.000000 

0. 0 CO 0 00 

0 . 0 0 0 3 C 0 

0.000000 

0.3 00 000 


LONG AIRCRAFT B 

FLT 1 CASE 17 

0.000 

21.376 

A 3 

4 





- .0 55533 

0. 030C00 

0 ,000003 

-.038290 



-.011031 

-. 4T6157 

0,00030c 

0. OCOOOO 



.006307 

0.0 00 0 00 

0 .03 COO 3 

0.000000 



B 3 

6 





-.015876 

0 . 000 00 3 

0 . 00 0003 

0. 000300 

-1.154961 

.164710 

- . 0 0 9 33 7 

0.0 GO 0 00 

0. OOOOOC 

3. OOOQCG- 

13.301 825 

-D.C COOOO 

.00 I35d 

0 . 0 OOCOO 

3 . 00 030: 

0.000300 

.0 11 709 

C.O COOOO 

AC 3 

3 





.001023 

o.oocoao 

0 . OOCQOG 




• 0 0 C 039 

.133743 

3 . 300000 




0 . OOOOOC 

0.030000 

3.000000 




BC 3 

5 





.000712 

o. oogdo: 

0 .oooooc 

0.000000 

•3 21 764 


.000086 

3 .0 000 00 

0 . 000000 

C. 030 000 

• 3 Cl 495 


0.000000 

0. ooocoo 

3 . 30 00 3 Q 

0. 000300 

0.3 30 00 3 



1.000 


1.0 00 


i.etn 


1.CQ3 


.260 


.260 


. 260 


• 260 
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APPENDIX F - Continued 


LONG AIRCRAFT B 

FLt 1 CASE 19 

0.000 

22.641 

A 3 

4 





- .0 57213 

0*030000 

0 .000300 

OC5510 



-♦011844 

. 1 65115 

a ,ao coco 

0. OQOGOO 



.006115 

0.0 CO 0 00 

0 . 00 03 C L 

C. 000300 



B 3 

6 





- .012764 

0. 0 0 C 000 

0 . 30 0000 

0. 000000 

-1.187400 

♦ 1853 20 

- .0073C7 

0 . 0 00000 

0 . OG 0003 

0 . cooooo- 

-15.322314 

-0.000000 

.001159 

0.000000 

c . o c o o u : 

O.OCQOOC 

.0 12945 

q.q eooca 

AC 3 

3 





♦ 0 C 1 052 

0.0 00003 

a . oocooo 




.000069 

.161152 

0 . 00 0300 




o .ooo joo 

0. 0 OOtOO 

Q . 00 0000 




9C 3 

5 





.000772 

0. 000000 

0.030000 

C . 0 0 0 0 0 c 

. 0 25 420 


.000118 

0.0 30 000 

0 . 00 0 000 

0 . 0 Q 0 C 0 0 

.002325 


0 .000003 

3. OGOGOG 

a .cd ooow 

0.000000 

0.3 QOOQO 



PLOT 
L AT R 
CN9 
LONG 
CN 

CNA 

CMDE 

CNDE 

CNA 

CMQ 

DE 

CMDC 

END 





i. ooo 


.260 
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APPENDIX F - Continued 
OUTPUT LISTING 

MMLE SUMMARY PLOTTING PROGRAM **** ^ JULY 1974 **** VERSION 2 

SAMPLE CASE POR SUMARY 

CONFIDENCE LEVFLS WILL OE PLOTTEO MULTIPLIED BY ld.O 


LONG 

A IRCRAFT 

9 

flt 

1 

CASE 1 

0*2070 

<*.8030 

1.0000 

. 26CC 

LONG 

AIRCRAFT 

R 

FLT 

1 

CASE A 

0 . J 00 c 

10. C 310 

1.C0Q0 

. 26C0 

LONG 

AIRCRAFT 

3 

FLT 

1 

CASE 8 

0. JOOC 

13.6710 

1.C00C 

. 26 CO 

LONG 

A IRCRAFT 

9 

FLT 

1 

CASE 11 

0*0000 

16.3950 

1.0000 

.2603 

LONG 

AIRCRAFT 

3 

FLT 

1 

CASE 12 

0*30^0 

17.9930 

1.C030 

. 26 CO 

LONG 

AIRCRAFT 

B 

FLT 

1 

CASE 15 

0 .0 OOP 

20 .C 880 

1.0000 

.260 3 

LONG 

AIRCRAFT 

9 

flt 

1 

CASE 17 

J • J J T; L 

21 . 3 7 E 0 

1.0300 

. 26G0 

LONG 

A IRCRAFT 

R 

FLT 

1 

CASE 19 

0.0070 

22.6410 

1 .0000 

. 260Q 

LATR PLOTS 

°AR AM= 


-0.000 

0 

tolerance= 

-0.0000 





COEFFICIENTS TO BE PLOTTED 
CN8 

NO WIND TUNNEL DATA AVAILABLE 
NO FLIGHT DATA AVAILABLE FQR CNB 

LONG PLOTS PARAM= -0*0003 TOLERANCE -G.CjO' 1 

COEFFICIENTS TO BE PLOTTED 


CN 

CN A 

CM OE CNDE 

CM A 

CM Q 

OF 

CMDC 

NO 

FLIGHT 

OATA AVAILABLE 

FOR 

CHOC 
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APPENDIX F - Continued 

A sample plot from the SUMARY program is shown. The plot is presented in 
four parts to avoid loss of detail from a large reduction. The plot as produced by 
the automatic plotter is shown within the heavy lines. Explanatory material is 
included to aid the user in implementing the program. Solid lines denote predicted 
derivatives. Vertical bars (T) indicate confidence levels. 



a 
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AMPLE CASE FOR SUMARY 


5H1B HRCH 

O 0 .50 



TO 


4-00 0.00 L?.O0 16-00 ?0-00 24.00 

ALPHA 


sme fiRCH 
O 0 -50 





APPENDIX F - Continued 



L69 







00' 9 T ~ 


SAMPLE CASE FOP SUMARY 


o 

° srne mach 

’] 0 0.50 



ALPHA 
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